PER PERSONAL COMPU 


= = - 


ANNO 1 N.2 SETTEMBRE 1982 L. 3.500 


Spedizione In abb. postale Gruppo 11W/70 


Quali stati compongono gli 
U.S.A.? Come si dice ‘Ci vediamo 
lunedì’ in francese? Atari studia con 
tuo figlio nel modo più moderno e 
intelligente. Con Atari lui impara a 
risolvere problemi di ogni tipo: da 
come sarebbe andata a Waterloo se 
lui avesse diretto le operazioni, a 
come riprodurre un brano musicale, 
a come risolvere una equazione. 

E si prepara così alla nuova civiltà 
del computer. 

Non per niente Atari è in dota- 
zione in molte scuole di ogni tipo, 
come aiuto prezioso sia per gli stu- 
denti che per gli insegnanti. 

Non avevate ancora pensato di 
regalare uncomputera vostro figlio? 
Allora, pensate a un Atari. E” facile 
e veloce, non più grande di una 


macchina per scrivere e non più co- 
stoso di un hi-fi. Basta collegarlo a 
un qualsiasi apparecchio TV e Atari 
è pronto per funzionare. A casa vo- 
stra, magari anche per giocare con 
i videogames, ma naturalmente 
anche nel vostro studio o negozio, 
officina o laboratorio. 
Perchè Atari sa fare molte cose, 

è il nuovo strumento di lavoro per 
chi vive la professione in modo mo- 
derno e aggiornato. Atari calcola, 
prevede, consiglia soluzioni, dise- 
gna grafici e figure, archivia, fattu- 

a... è il collaboratore-amico che vi 
può dare una mano ogni giorno. 

Potete sceglierlo nel più agile 

modello 400 o, se avete problemi 
più complessi, nel sofisticato model- 
lo 800, fornito del potente sistema 


COSA FA UN COMPUTER ATARI 
CON TUO FIGLIO? 


gestionale VisiCalc. E potete sce- 
gliere anche tra una vastissima 
gamma di accessori. 

Chiedete un Atari in prova al 
vostro negoziante di fiducia, e dopo 
un giorno insieme vedrete come è 
utile, facile e, perchè no, affascinan- 
te possedere un Atari. 
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Rispondere alle crescenti esigenze 
degli utilizzatori di mini e macro si- 
stemi è la missione che si è fissata 
RHONE-POULENC SYSTEMES fabbri- 
cando FLEXETTE: la nuova famiglia di 
Floppy discs, disponibili in 8” e 5” 1/4 
fabbricati da DYPY S.A. (*). 
FLEXETTE è oggetto di controlli per- 
manenti e di testi unitari che lo garan- 
tiscono REALMENTE ERROR-FREE. 


Code” 4001 


Dalla sua prima utilizzazione Voi siete 
sicuri di ottenere registrazioni ad alta 
fedeltà. D'altra parte la finitura della 
superficie del disco, la certificazione 
al 100% di questa superficie permet- 
tono di ottenere delle condizioni di re- 
gistrazione eccezionali. 

FLEXETTE è riservato agli utilizzatori 
che ricercano la garanzia di un'alta 
tecnologia. 


Cambiate disco, provate FLEXETTE e 
approfittate di tutte le sue qualità. 
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La tecnica di ricerca su alberi permette ad un 
calcolatore di scegliere la migliore tra moltissime 
alternative, considerando però il minor numero 
possibile di soluzioni parziali. In questo articolo un 
lungo programma, adatto a qualunque personal per la 
ricerca ad albero nella soluzione del gioco del 15 


11 


Volete programmare in linguaggio macchina con il 
vostro PET/CBM serie 3000 o 4000? I due programmi 
presentati in questo articolo vi permettono di farlo, e 
vi danno anche la possibilità di salvare ed editare i 
programmi. Per chi lo desidera è disponibile un disco 
con i programmi già registrati e verificati. 
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ARTICOLI 


Ricerca su alberi: parte prima 
Gregg Williams 
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Avete mai provato a riprodurre su una stampante una 
fotografia con sfumature di bianco e nero? In questo 
articolo sono descritte le tecniche più usate. 


56 


Un assembler in Basic per il PET/CBM 
R. Baker 
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L'organizzazione PERT 
W. Douglas Maurer 
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Immagini digitali di mezzetinte 
John S. Browning 
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Questo mese, il programma più complesso è 
Cannonate che simula due cannoni in duello tra di 
loro. 

Il programma è per l'Apple ed usa la grafica ad alta 
risoluzione 
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Con Apple Writer puoi 
comporre il testo della 
circolare 


L'estrema semplicità di utilizzo 
rendono questo package lo 

strumento ideale per redigere 

circolari promozionali, lettere 
personalizzate, estratti conto 

periodici o qualunque altro 
documento contenente dati e 

indirizzi. 

Tutto ciò senza dover creare archivi 
complementari, ma sfruttando quelli 
già creati e utilizzati normalmente 

per altri servizi. Il programma, fornito 
completo di manuale d'uso, floppy 
disk ed elegante contenitore, può 
essere acquistato al prezzo di I 
(IVA compresa) presso uno dei 
rivenditori Apple oppure presso 
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Le mani sulla tastiera 


Mauro Boscarol 


ualcuno mi ha fatto sapere di non essere 

d’accordo con quello che ho scritto nel- 

l’editoriale del primo numero, ed ha 

espresso il suo punto di vista dicendo 
che “anche i programmi sono software”. 

Non ho mai pensato il contrario. I program- 
mi lo sono certamente, ma quello che avevo 
scritto e che ora ripeto è che il software non 
sono solo i programmi. 

Questo lo sa molto bene chiunque abbia in 
qualche modo messo le mani sulla tastiera di un 
computer provando a realizzare qualcosa. Co- 
stui conosce le riflessioni e lo studio che prece- 
dono la stesura dell’algoritmo, le molte modifi- 
che, la scrittura del programma, le esecuzioni 
di prova, il debugging. Ecco, per esempio, il 


debugging è senz’altro un aspetto peculiare del © 


software, ma non si può dire che si tratti di 
“programmi”. È una cosa diversa, un insieme 
di tecniche di correzione e messa a punto, fon- 
damentale in informatica. Parlando in termini 
matematici, ma ormai accessibili anche agli sco- 
lari delle elementari, i programmi sono un sot- 
toinsieme (proprio) del software. 

Oltre ad essi ci sono varie tecniche e settori 
di interesse che costituiscono materia di studio 
e riflessione: per esempio l’analisi degli algorit- 
mi, la loro complessità, la loro correttezza. 

In questo numero c’è un articolo che ben si 
presta ad esemplificare. Si tratta di Immagini 
digitali di mezzetinte. Qui sono presentati dei 
programmi, di per sé molto semplici e, se si 
vuole, banali. Ma il loro significato, la loro ap- 
plicazione al problema di riproduzione dei toni 
sfumati di bianco e nero, gli studi che ci stanno 
sotto, costituiscono un problema di software 
generale, non un problema di programmazione. 

Si verifica in questo campo ciò che ho perso- 
nalmente sperimentato nel mondo universita- 
rio. Per i matematici astratti (quelli, per inten- 
derci, che si interessano di analisi, algebra, geo- 
metria) tutti i matematici applicati che lavorano 
con il computer fanno “analisi numerica”. Non 
importa se si interessano di informatica teorica, 
di basi di dati o grafica con il computer. Proba- 
bilmente ciò si può spiegare con il senso di sicu- 


rezza che danno le classificazioni: se dico che il 
software sono i programmi, l’ho incasellato e lo 
posso dominare. 

Coloro che non si accontentano di questo, 
vogliono vedere oltre. E la nostra rivista dà lo- 
ro una mano con gli articoli, le rubriche, e (an- 
che) i programmi. 

Cosa c’è di nuovo questo mese? Fra gli altri 
articoli vorrei segnalare la prima parte di Ricer- 
ca su alberi che tratta in dettaglio questa parti- 
colare tecnica di tipo combinatorio molto utiliz- 
zata in intelligenza artificiale. Quindi L’orga- 
nizzazione PERT un breve ma chiarissimo arti- 
colo su questa tecnica fondamentale della ricer- 
ca operativa ed infine un editor e assemblatore 
in Basic per il PET/CBM serie 3000 e 4000. 

Vorrei concludere con un invito. Le pagine 
di questa rivista sono aperte a tutti. Se avete un 
articolo che pensate sia nello spirito e nella filo- 
sofia di queste nostre pagine, fatecelo avere. Se 
pensate di avere qualcosa da dire in merito agli 
argomenti trattati nelle rubriche o in questo 
stesso Editoriale, scrivete voi stessi un numero 
della rubrica che vi interessa. Se pensate di 
aver scritto un programma interessante e utile, 
mandatecelo. La vostra collaborazione sarà ri- 
compensata, ma soprattutto potremo aprire un 
dialogo tra tutti noi. Cosa che comunque inizie- 
remo a fare dal prossimo numero con la rubrica 
della posta. Scriveteci. 


Nel prossimo numero: 


Ricerca su alberi, seconda parte 


Compressione di testi 


Generatore di labirinti 


Comunicazioni da PET a PET 


di pri. ttt 


EcOo1: 
un collaboratore 
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SHARP MZ-80B + CP/M* 


Con questa semplice addizione 


il Personal più versatile diventa ora 
il più completo. 


Lo MZ-80B è il personal realizzato dalla Sharp 
per gli ingegneri edili, per i responsabili di produ- 
zione, per i progettisti, per i chimici, per i ricerca- 
tori, allo scopo di aiutarli nel loro lavoro di proget- 
tazione, di calcolo, di controllo, di ricerca e di 
analisi. La sua versatilità di impiego è ormai pro- 
verbiale: lo MZ-80B è infatti dotato di capacità gra- 
fiche di prim'ordine che permettono di visualizzare 
sul suo monitor ad alta definizione (200 x 300 punti) 
situazioni statiche o dinamiche. 

Lo MZ-80B non è inoltre legato ad un linguag- 
gio residente su ROM, ma è possibile caricare 
(i vg di volta in volta in RAM diverse 
versioni di BASIC, interpreti e com- 
pilatori, del Pascal, dell'ASSEMBLER, 
eccetera. 


SHARP 


Concessionari e Rivenditori autorizzati presenti in ogni provincia italiana 


Per rendere lo MZ-80B ancora più completo, 
la Sharp ve lo offre ora dotato del sistema operativo 
CP/M. Lo MZ-80B ha così accesso a una ricchissi- 
ma biblioteca di linguaggi e di programmi applica- 
tivi, per il word processing, per i modelli finanziari, 
per la gestione del data base, per citarne solo 
alcuni. Questa biblioteca va ad arricchire la già 
ricca dotazione di pacchetti applicativi realizzati 
dalla Melchioni Computertime. 

Il CP/M non si limita a rendere più completa la 
dotazione di software dell'MZ-80B ma lo rende 
anche più potente perchè porta a 680 kbyte la ca- 
pacità del doppio drive di dischetti = 

= 
= 


del sistema. 
*CP/M è un nome depositato della 
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SHARP COMPUTERS. 


I Nobel dell'informatica. 


Prima parte: 
tecniche di base 


di Gregg Williams 


La riproduzione di questo articolo 
è stata concessa da BYTE. 
Traduzione di Flavio Santini 


PERSONAL SOFTWARE 


Ricerca su alberi 


i stato stimato che il numero 
E: strategie nel gioco degli 
scacchi supera quello degli 
atomi dell'universo. Ciò significa 
che se un computer potesse gene- 
rare un milione di mosse al secon- 
do, impiegherebbe circa 3.2 x 109° 
secoli per produrre tutte le strate- 
gie possibili. Come sono in grado, 
allora, i giochi di scacchi basati su 
microprocessori da 200 dollari (che 
devono affrontare l’analisi di una 
situazione così complessa) di ela- 


borare anche strategie particolar- 
mente valide? Tra le tecniche ne- 
cessarie a questo scopo una delle 
più potenti, nel campo dell’intelli- 
genza artificiale, è conosciuta come 
ricerca su alberi. 

Essa consente ad un calcolatore 
di scegliere la migliore tra tante al- 
ternative, considerando però il mi- 
nor numero possibile di soluzioni 
parziali. La prima parte di questo 
articolo affronta le tecniche di base 
della ricerca su alberi a tre stadi: 


NODO PADRE —_ 


dr: 
(CA 
“Y NODI SUCCESSORI 


(b) 


Fig. 1. Nomenclatura degli alberi. La figura la è la rappresentazione grafi- 
ca ad albero dello spazio degli stati di un problema. Gli alberi sono caratte- 
rizzati dall’avere un unico nodo di partenza (S), dal conienere solo nodi 
derivati da quello iniziale e dall'assenza di freccie dirette a nodi dello stesso 
livello o di livelli inferiori. I nodi n3;, n3> ed n7 sono tre esempi di nodi 
terminali; i nodi nj3, n26 ed n33 sono invece esempi di nodi intermedi; i nodi 
n3; ed ng sono mete. Si noti che una meta può essere sia nodo terminale 
che intermedio. La figura 1b mostra la relazione tra il nodo padre n;3 ed i 
successori nz; ed n37. Si dice che il nodo n;3 si estende a generare ny; ed 
N97. 


Naz) 


N27 


33] 


Fig. 2. Un grafo orientato. Questa 
figura, che rappresenta la struttura 
di molti problemi “reali”, differisce 
da quella di un albero, poiché qui i 
successori possono essere allo stesso 
livello o ad un livello “più basso”. 
Il successore di n33 è n32; il succes- 
sore di n37 è nj3. Gli algoritmi di 
ricerca su alberi possono essere mo- 
dificati per trattare, in generale, i 
grafi, ma questo articolo si occupa 
solo degli alberi. 


teoria, implementazione (attraver- 
so diversi programmi in Basic che 
illustreranno le tecniche principali) 
e sperimentazione. Sarà introdotta 
la terminologia fondamentale e 
mostreremo alcuni ben noti metodi 
esaustivi di ricerca su alberi (quelli 
in grado di generare tutte le possi- 
bili soluzioni parziali), assieme ad 
un programma Basic illustrativo 
(per risolvere il noto gioco dei 15 
numeri da ordinare in 16 caselle) 
che verrà usato anche quando si 
tratteranno i metodi euristici possi- 
bili di ricerca che si servono di in- 
formazioni sul sistema ‘esaminato 
per ridurre il numero di percorsi 
sbagliati da esaminare; ci si occu- 
perà anche di tecniche euristiche 
non ammissibili che cercano una 
soluzione più rapida a costo di per- 
dere la certezza dell’ottimalità della 
soluzione, o rischiando addirittura 
di non trovarne alcuna. 


Terminologia di base 


Il fine dell’intelligenza artificiale, 
secondo una scuola di pensiero, è 
di produrre programmi per compu- 
ter che risolvano problemi non fa- 
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cilmente trattabili da una macchina 
— problemi che si prestano ad esse- 
re risolti da una componente 
“intelligente” (di solito un essere 
umano). La soluzione a molti di 
questi problemi può essere vista 
come la ricerca di una meta, che ha 
proprietà definite in modo non am- 
biguo, a partire da uno stato (0 no- 
do) iniziale e seguendo un certo in- 
sieme di regole. Tra il nodo iniziale 
e la meta ci sono altri nodi, che 
rappresentano le posizioni interme- 
die. Noi siamo interessati a quella 
particolare sequenza di nodi che 
costituisce il percorso minimo ver- 
so una delle possibili mete. Molti 


COSTO = 13 


GOD) ver 


COSTO = 12 


nodi (generalmente un numero 
enorme) non giacciono sul cammi- 
no ottimale, e lo scopo dei metodi 
di ricerca sull’albero è quello di 
esplorare il minor numero possibile 
di essi. 

Parecchi problemi che non sem- 
brano prestarsi alla ricerca su albe- 
ri si riconducono a questo genere 
quando sono descritti secondo una 
rappresentazione a numero finito di 
stati. Talvolta, nel caso di problemi 
che hanno campo d’esistenza conti- 
nuo (e quindi infinito), ciò si tradu- 
ce nel ridurre il problema ad un 
numero finito di passi discreti: un 
esempio si ha considerando l’inter- 


COSTO =15 


COSTO =18 


Fig. 3. / problema del commesso viaggiatore. Data la mappa di figura 3a, 
lo scopo è di trovare il percorso minimo che, partendo dalla città A, passi 
per le altre B, C e D. L’albero della figura 3b dà la rappresentazione a 
numero finito di stati del problema, dove ogni nodo è una tappa del percor- 
so completo (cioè: ADC è il cammino da A a C attraverso D) il cui costo 


- dipende dalla strada seguita. In questo caso il problema è discreto ed ogni 


nodo ha un numero finito di successori; dal nodo AD sono possibili solo 


due tragitti: ADB ed ADC. 


PIPS_ i =“; 
Il nuovo non-linguaggio di programmazione che ha reso il computer accessibile a tutti —__—_—_—___—_—_—_—— - 


_—__MNONSTOP___ = = ae SS RE IDE 
——_M23 il microcomputer facile ed affidabile con una grande flessibilità di impiego, —_—__ - =: 


che trova limitazioni solo nella propria fantasia. Ha la capacità di lavorare senza interruzioni, a lungo.___ 
Se si ferma è per fatti eccezionali. L'ultima volta c’era un topolino dentro! = — 


i 5 Si cercano rappresentanti per zone libere. 
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Per maggiori informazioni inviare il tagliando a 


cattaneo system spa via cesarea 9/4 - 16121 genova 
r==-—---———--_—___m@—@ 
i) 
Garanzia per un anno e speciale polizza assicurativa ti nome 
nina L__indinzzo 
1 cap citta 
Ù 


i tel 
Di professione 


AGGIUNGERE 1 ml. 


AGGIUNGERE 25 ml. 


AGGIUNGERE 100 ml. 


TOGLIERE 49 ml. 


META 


Fig. 4. La “quantificazione” di uno spazio degli stati continuo. È illustrato 
un pezzo dell’albero corrispondente al problema di riempire un bicchiere 
fino ad un livello stabilito. Lo spazio (la quantità d’acqua nel bicchiere) è 
continuo nel senso che il problema può aver a che fare con un'infinita 
varietà di stati (quantità d’acqua). Se consideriamo di riempire il bicchiere 
solo con incrementi millilitro per millilitro, lo spazio del problema diventa 
discreto e finito, e così può essere trattato col calcolatore. Le mete si hanno 
quando l’acqua raggiunge il livello fissato. 


vallo delle temperature da 20 a 30 
gradi centigradi come insieme di- 
sereto di valori — diciamo 20.0°, 
20.1°, 20.2°...., 29.9°, e 30.0°. In 
teoria questo comporta una perdita 
di precisione, ma molti problemi 
possono essere rappresentati se- 
condo incrementi così piccoli, che 
la precisione è salvaguardata. 

Una rappresentazione a numero 
finito di stati è formata da: un no- 
do iniziale, una meta o un insieme 
di mete, e delle regole o operatori 
che permettono, dato un certo no- 
do, di generare tutti i nodi succes- 
sori possibili. In certi casi, al per- 
corso del nodo ad un suo successo- 
re (nodo generato da una singola 
applicazione di un operatore al no- 
do padre) è associato un costo, ed 
il costo di una meta è il costo totale 
del percorso minimo dal nodo ini- 
ziale alla meta stessa. L’insieme di 
tutti i nodi che possono seguire 
quello iniziale è chiamato spazio 
degli stati. Un albero è una rappre- 
sentazione possibile dello spazio 
degli stati di un problema. Come si 
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vede nella figura 1, i nodi vengono 
rappresentati con punti, e la rela- 
zione tra un certo nodo ed un suo 
successore è schematizzata da una 
freccia diretta dal padre al succes- 
sore. Chiameremo S il nodo di par- 
tenza ed ogni altro nodo secondo il 
suo livello (distanza dal nodo ini- 
ziale) e la sua posizione all’interno 
dell’insieme dei nodi con lo stesso 
livello (si tratta di un etichettamen- 
to arbitrario, ma semplice e molto 
utile). Con riferimento -alla figura 
la, i nodi 1, 1 ed n43 sono tutti 
quelli di livello 1. Il nodo ny ha 
due successori, 71,4 ed n35. Il nodo 
Na, è l’unico con livello quattro. 

L’applicazione degli operatori, 
che determinano la transizione da 
uno stato (nodo) al successivo, a 
certi nodi non dà luogo ad altri sta- 
ti. Questi nodi sono detti terminali; 
i nodi terminali nella figura 1a so- 
NO 21, N22, N23, Nas, N27, N31, N37 ed 
hay. I nodi segnati con la parola 
META o la lettera G sono le mete; 
e possono essere sia nodi terminali 
che intermedi. 


Spesso lo spazio degli stati di un 
problema consente ad un nodo di 
generarne come successore un al- 
tro di livello uguale o minore, co- 
me nella figura 2. In questo caso, 
la rappresentazione che ne risulta è 
chiamata grafo orientato. Questo 
richiederà solo una lieve modifica 
al metodo di ricerca su alberi, ma è 
importante notare la differenza. 

Infine, come abbiamo già accen- 
nato, un certo costo può essere as- 
sociato alla transizione da un nodo 
al successivo. In tal caso, il suo va- 
lore viene scritto accanto alla frec- 
cia corrispondente; altrimenti la 
freccia non è etichettata e si suppo- 
ne che abbia costo unitario. 


Alcuni esempi 


Analizzeremo dapprima un 
esempio discreto: il problema del 
commesso viaggiatore. Un com- 
messo viaggiatore abitante nella 
città A deve passare per le città B, 
C e D in un ordine qualsiasi. Data 
la mappa in figura 3a, quale per- 
corso attraverso questi centri mini- 
mizza la lunghezza totale percorsa? 

In questo caso, i nodi sono per- 
corsi parziali (o completi) descritti 
da una sequenza di lettere A, B, C 
e D, con le seguenti regole. Il nodo 
iniziale è A (la sede è la città A, 
nessun viaggio). Quattro mete so- 
no rappresentate dai percorsi com- 
pleti ABCD, ABDC, ADBC, 
ADCB. Informalmente le regole 
possono essere riassunte così: ad 
un certo nodo, aggiungere la lette- 
ra corrispondente ad una qualsiasi 
città connessa con quella rappre- 
sentata da quel nodo, purché non 
ancora visitata. 

Poiché il numero delle città è 
piccolo, possiamo tracciare l’intero 
albero rappresentante lo spazio de- 
gli stati (figura 3b), da cui risulta 
chiaramente che il percorso mini- 
mo completo è ADCB, con lun- 
ghezza (costo) dodici. Ma se le cit- 
tà fossero dieci? O venti? E se al- 
cune strade fossero a senso unico? 

Vediamo ora un esempio nel 
continuo (dove lo spazio degli stati 
dev'essere ridotto ad un numero fi- 
nito di valori discreti). Supponia- 
mo di avere un rubinetto, uno sca- 


OPEN= 
NODO INIZIALE, 


OPEN È 
VUOTA? 


No 


PONI A (IL NODO IN CIMA ALLA 
LISTA OPEN) NELLA LISTA 
‘CLOSED 


ESTENDI A AI SUOI SUCCESSORI 
S(): {S(1), S(2) .... S(N)} 


INSERISCI GLI S(i) NELLA 
LISTA OPEN 


INSUCCESSO 


RICOSTRUISCI LA SOLUZIONE 
TRAMITE | PUNTATORI 


SUCCESSO 


Fig. 5. Il flowchart di base usato per scrivere il programma RICERCA del 
listato la. Prima di scrivere in Basic il programma RICERCA, il flowchart 
è stato tradotto in pseudolinguaggio (vedi listato 1b). 


rico ed un bicchiere vuoto con una 
linea orizzontale: bisogna riempire 
il bicchiere fino alla linea. Prima di 
tutto dobbiamo quantificare il pro- 
blema. Supponiamo che il bicchie- 
re contenga 100 ml di acqua. Pos- 
siamo anche considerare il millili- 
tro come la più piccola quantità 
d’acqua trattabile. Gli stati del pro- 
blema sono le varie quantità d’ac- 
qua presenti nel bicchiere, e posso- 
no essere 101: 0 ml (vuoto), 1 ml 
d’acqua, 2 ml,..., 100 ml. (Qui la 
parola “stato” è più appropriata di 
“nodo”; si usa il secondo termine 
quando ci si riferisce alla rappre- 
sentazione grafica del problema.) 
Ma, oltre al volume, bisogna 
quantificare il tempo, nel senso che 
si aggiunge o si toglie una certa 
quantità d’acqua “alla volta”. Gli 
operatori possibili sono 200 (alcuni 


dei quali fisicamente irrealizzabili a 
partire da un certo stato): aggiun- 
gere 1 ml, togliere 1 ml, aggiunge- 
re 2 ml,...e così via fino ad aggiun- 
gere o togliere 200 ml. Infine, la 
meta è un qualsiasi insieme di ope- 
razioni che porti il livello dell’ac- 
qua alla linea tracciata sul bicchie- 
re (dovunque essa sia). L’albero 
corrispondente allo spazio degli 
stati è grande ma finito; parte di 
esso è mostrata nella figura 4. 


Il gioco del 15 


Molti di voi avranno già giocato 
al gioco del 15: quindici quadratini 
numerati che si muovono all’inter- 
no di uno schema quadrato con la- 
to di quattro unità. I quadratini so- 


no all’inizio disordinati e lo scopo è 
quello di spostarli finché, letti riga 
per riga, siano in ordine crescente 
con lo spazio vuoto nell’angolo in 
basso a destra. (Il matematico Sam 
Lloyd fece un mucchio di soldi 
scommettendo con altri che non 
avrebbero risolto il giochetto. An- 
dava sul sicuro; partendo dalla si- 
tuazione che lui proponeva, era 
impossibile trovare la soluzione.) 
Useremo il gioco del 15 per illu- 
strare vari metodi di ricerca. Il pro- 
gramma Basic di nome RICERCA 
(vedi listato numero 1) implemen- 
terà diverse tecniche di ricerca al 
variare di un’unica subroutine. E 
valido sia il gioco del 15 standard 
che (per i computer con poca me- 
moria) per la versione con lato di 3 
quadratini: il gioco dell’8. In que- 
sto articolo parleremo proprio del 
gioco dell’8; anche con uno schema 
3 per 3, l’albero su cui effettuare la 
ricerca si ramifica velocemente. 


Strategia elementare 


Per implementare qualsiasi stra- 
tegia di ricerca c'è bisogno di un 
certo formalismo. Useremo due li- 
ste chiamate OPEN e CLOSED, la 
prima per i nodi che non si sono 
ancora estesi (cioè che non hanno 
generato tutti i possibili successori) 
e la seconda per quelli già estesi; 
un algoritmo per generare tutti i 
successori consentiti; ed un algorit- 
mo per determinare se un nodo è 
meta o no. Un algoritmo finale, f, 
che implementa la tecnica di ricer- 
ca considerata, fornisce una funzio- 
ne che serve per ordinare gli ele- 
menti della lista OPEN al fine di 
determinare il prossimo nodo da 
estendere. 

L’algoritmo generale è riassunto 
in forma di flowchart nella figura 
5. Può essere descritto così: 


1 Inserisci in OPEN il nodo ini- 
ziale. CLOSED è vuota. 

2 Se OPEN è vuota non esistono 
soluzioni; il risultato è un insucces- 
so. 

3 Altrimenti, poni A uguale al 
nodo in cima alla lista OPEN. 
Estrai A dalla lista OPEN e metti- 
lo nella lista CLOSED. 


4 Trova tutti i possibili successori 
di A, chiamali S(1), S(2),..., S(N). 

5 Se non ci sono successori 
(N=0), va a 2. 

6 Controlla se i successori sono 
mete. Se c’è una meta, va a 8. 

7. Calcola i valori f di ogni Suc- 
cessore ed inserisci i nodi nella lista 
OPEN così che i nodi di OPEN 
siano ordinati secondo valori f cre- 
scenti. Inoltre, poni ad ogni nodo 
successore un puntatore al nodo 
padre A. Va a 2. 

8 Risali dalla meta al nodo di 
partenza tramite i puntatori. Que- 
sta sequenza, letta al contrario, dà 
la soluzione. 

9 Il gioco termina con successo. 


Il metodo appena descritto è 
esaustivo e completo — cioè termi- 
na sempre. Il caso di “insuccesso” 
si ha quando tutti i nodi intermedi 
si sono estesi senza che venga tro- 
vata una meta. 


Panoramica su RICERCA 


Una spiegazione completa del 
programma RICERCA sarebbe 
troppo lunga, perciò mi limiterò ai 
punti necessari al lettore per ri- 
comporre la meccanica del pro- 
gramma. Tutti i commenti sono ri- 
feriti alla versione a 16 caselle. (Ci 
si riporta al caso di 9 caselle po- 
nendo 3 il valore R9 nell’istruzione 
1800 del listato 1). 


® Il programma del listato la è 
equivalente all’algoritmo in pseu- 
dolinguaggio del listato 1b ed al 
flowchart della figura 5. 

® Le variabili principali del pro- 
gramma sono elencate nella tavola 
IL. 

® Il cuore del programma RI- 
CERCA (che corrisponde all’algo- 
ritmo in pseudolinguaggio) va dalla 
riga 170 alla 610; le subroutine usa- 
te sono elencate nella tavola 2. 

® I nuovi nodi, invece di essere 
ordinati all’interno della lista 
OPEN, vengono aggiunti alla fine 
e ad essi è assegnato un numero 
d’ordine. Invece di estendere il no- 
do in cima alla lista, viene esteso il 
nodo con numero d’ordine minore 
(tra quelli nel vettore O(N)). Così 
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listato la: 


REM ORRORI OOO VORO EVO NUOVO ROGNONONOROOIONOE 
REM & + 
REM * 
REM x 
REM * 
REM * 
REM * 
REM 0A G ROVIGO VOOVONOGGUGUOVGUORO RO O GOGOGOGGOGOO 
CLEAR 1000: REM SOLD PER IL TRS-80 
100 DIM 0$(100),0(100),R$(20),M$(4) ,E8(4,4),F8(4,4),Z(16) 
120 REM -— INIZIALIZZAZIONI 
130 GOSUB 1800 
140 REM x 
150 REM -- CICLO DO-WHILE: FINCHE? "OPEN" NON 
160 REM -- E? VUOTA, E EXIT="RICERCA" 
170 IF E1$="USCITA" GOTO 660 
180 REMO 
190 REM -- TROVA NI=INDICE DEL PIU” PICCOLO VALORE DI OPEN 
210 GOSUB 950 
220 IF O(N1)>=99999 GOTO 660 
230 PRINT"230-ESPANSIONE NODO";N13",";0%(N1);", VAL="30(N1) 
240 REM 
250 REM -- INSERISCE IL NODO IN CLOSED 
260 C9=C9+1 
270 O(N1)=90000+0(N1) 
280 REM È 
290 REM -- DECIFRA LO SCHEMA E GENERA I SUCCESSORI IN A$ 
310 E$=MID$(0$(N1),H1+1,L2) 
320 E9$=MID$(0$ (Ni) ,Hi,1) 
330 GOSUB 1130 : 
340 REM -— IL NODO Ni VIENE CONSIDERATO PER GENERARE I SUCCESSORI 
360 GOSUB 1240 
370 REM 
380 REM -— CONTROLLO DELLE METE. SONO STATI GENERATI Gi NODI 
400 IF G1>0 GOTO 430 
410 PRINT"410-NESSUN SUCCESSORE PER IL NODO";N1 
320 GOTO 610 
430 G$="NON META": FOR Mi=i TO Gi 
440 REM -— SI OTTIENE META SE A$(Mi) E” UNA META 
450 GOSUB 2040 
460 IF G$<>"META" GOTO S10 
470 E1s="USCITA" 
480 REM -—- MEMORIZZA L’INDICE DELLA META 
490 REM -- SALTO DALL’ ISTRUZIONE 460 
500 REM -- SCOMPONE LO SCHEMA NEI VETTORI E$ E F$ 
E$=MID$ (A$ (M1),H1+1,L2) 
GOSUB 1130 
REM —— CALCOLA H-CAPPELLO PER E$, RISULTATO IN Ri 
GOSUB 9900 
REM -- PONE A$(M1) NELLA LISTA "OPEN" 
09=09+1 
0$ (09) =A$ (MI) 
0(09)=R1 
NEXT Mi 
REM -—— FINE DEL CICLO DO-WHILE DELLA RIGA 170 
GOTO 170 


RICERCA SU UN ALBERO 
FER IL GIOCO DEL 15 


* 
+’ 
+ 
PERSONAL SOFTWARE x 
* 
+’ 


STAMPA SOLUZIONE O.MESSAGGIO DI INSUCCESSO 
IF G$<>"META" GOTO 710 
REM —— RICOSTRUISCE LA SOLUZIONE 
GOSUB 2150 
GOTO 720 gd 
REM -- NESSUNA SOLUZIONE 
PRINT: PRINT"NON E’ STATA TROVATA SOLUZIONE" 
PRINT"NODI DELLA LISTA OPEN: "309-C9 
PRINT“NODI DELLA LISTA CLOSED: ";C9 
END 
FOR I=1 TO R9 
FOR J=1 TO R9 
PRINT F$(1,J);: 
PRINT “ ": NEXT I 
RETURN 


CONTROLLO NUOVO SCHEMA F$(1,J3) 

NON DOPPIO" 

O REM -— CONTROLLO SU TUTTI I NODI ESTESI, CIDE” QUELLI CON O(1)>=90000 
FOR I=1 TO 09: IF O(I)<90000 GOTO 910 
F1$=MID$(0$(1),Hi+1,L2) 


Listato 1. /!l programma RICERCA, scritto in Basic per il TRS-80. Il lista- 
to 1° è il programma così come va implementato. Perché funzioni bisogna 
aggiungergli uno dei listati 2, 3 e 4. La subroutine che comincia alla riga 
9900 implementa un certo metodo di ricerca; per ridurre le dimensioni del 
programma si possono togliere tutti i commenti (REM). Il messaggio dia- 
gnostico stampato dalla riga 230 dà un’idea retroattiva del funzionamento 
del programma, anche se non dà il valore corretto del nodo di partenza 
(nodo 1). Lo pseudolinguaggio del listato Ib chiarisce il funzionamento di 
RICERCA. In esso le etichette si riferiscono alle righe del programma. 


870 
880 
890 
900 
910 
920 
930 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1240 
1250 
1260 
1270 
1280 
1300 
1310 
1320 
1330 
1350 
1360 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1460 
1470 
1480 
1490 
1510 
1520 
1530 
1540 
1550 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1800 
1810 
1820 
1830 
1840 
1860 


FOR I=1 TO AD XCD VD: NEXT I 
D$="BSADI":1$="ADES" 
E9s="I" 
PRINT: PRINT“INSERISCI LO SCHEMA SOTTO FORMA DI" RSYIF9 "UARAI IERI" 
INPUT 02$ 
IF LEN(02$)=R9*R9 THEN 1910 
PRINT: PRINT“ERRORE NELL INSERIMENTO DEI LO SCHEMA" 
O PRINT“RIBATTI": GOTO 1840 
O 09=l: 0(1)=0 
GOSUE 1660 


20 Ni= 


REM ------2—2 


IF F$=F1s THEN 03$="DOPPI0": RETURN 
NEXT I 
IF 03$="NON DOPPIO" THEN RETURN 


PRINT"900--QUESTO SCHEMA E° DOPPIO xxx" 

RETURN 

REM 

REM RICERCA DELL® INDICE Ni FER CUI Q(N1) E” MINIMO 
S1=99999: Ni=i 


FOR I=1 TO 09 


NEXT I 


F$=F$+F$ (B,D) 

NEXT D 

NEXT B 

REM -------2—110+1 

REM SCOMPONE LA STRINGS E$ NELLE MATRICI E&(N,M) E F&0I,M, 
FOR TO R9 

FOR _J=1 TO R9 

Q1=R9*(I-1)+J 


E$(I,J)=MID$(E$,D1,1) 
F$(1,J)=MID$(E$,01,1) 
NEXT J: NEXT I 
RETURN 


-— ESTENDE LA SITUAZIONE E$(I,I) NELLA DIREZIONE E 
- PONENDO I SUCCESSORI DEI. NODO Ni IN A$C(N, M=1,...,61 
FOR TOS 
IF E9$=MID$(D%,1,1) GOTO 1270 
NEXT I 
Q9$=MID$(1$,1,1) 
REM -—— 09$ E” LA DIREZIONE IN CUI NON SI FLO ESTENDERE E# 
FOR Yi=i TO R9: FOR Xi=1 TO R9 
IF E$(X1,V1)="." GOTO 1350 
NEXT X1: NEXT YI 
REM -— X1,Y1=COORDINATE DELLO SPAZIO VUOTO NELLO SCHEMA 
GI=0 
REM -— IL PROSSIMO CICLO GENERA 4 FOSSIBILI SUCCESSORI 
Si=l: A9=0 
IF S1>4 THEN RETURN 
HE MID$(D$,S1,1)=09$ GOTO 1610 
=X1+X (51): ViI+Y (S1) 
FOR I=1 TO R9;: FOR J=1 TO R9 
F$(1,J)=E$(1,J): NEXT J: NEXT I 
REM —— SCAMBIA LE POSIZIONI DI (X1,Y1} E <x2,YD) 
IF X2<1 OR X2>R9 GOTO 1610 
IF Y2<1 OR Y2>R9 GOTO 1610 
F$(X1,Y1)=F$(X2,Y2): F&(X2,V2)}a"." 
REM -2 INSERISCE IL NUOVO NODO COME SCHEMA IN A$(M) 
GOSUB 1040 
REM -- CONTROLLO RIPETIZIONI IN 0$ 
GOSUB 820 
IF 03$="DOPPI0" GOTO 1610 
REM —— NODO=PUNTATORE+DIREZIONE+VETTORE SCHEMA 
A9=A9+1 
GOSUB 1660 
A$(A9)=0$+MID$ (D$,S1,1)+F% 
Gi=Gi+1 
Si=S1+1: GOTO 1390 
RETURN 


REM -— TRADUCE Ni IN STRINGA DI CARATTERI 0$ 
Q$=STR$(N1) 

Q1=LEN(05) 

REM -- AGGIUNGE ZERI DAVANTI A D$ 

02=08-01 

IF_Q2 
PRINT"ERRORE DI DIMENSIONE NELLA ROUTINE 1660" 
. ABORTITO": END 

THEN RETURN 


FOR Isi TO 02 
Os="0"+0$: NEXT I 
RETURN 


INIZIALIZZAZIONI 


DATA -1,0,0,1,1,9,0,-1 


0$(1)=0$+"I"+02% 
O REM INIZIALIZZATE LE LISTE “OFEN", VETTORI D, 0 


si risparmia al programma un ordi- 
namento superfluo. 

® Si può anche far senza il vetto- 
re CLOSED, contrassegnando con 
un valore di O maggiore di 90000 i 
nodi già estesi. Il numero di nodi 
già estesi è dato da C9. 

® Nel programma RICERCA 
certe costanti sono inserite in va- 
riabili, cosicché si possono facil- 
mente apportare modifiche per l’a- 
dattamento del programma a com- 
puter di dimensioni diverse. È il 
caso delle variabili L2, 08 ed R9 
della tavola 1. 

® La rappresentazione completa 
di un nodo nel programma è data 
dalle variabili O(N) e O$(N), dove 
N è il numero dei nodi. O(N) è il 
numero d’ordine relativo agli altri 
nodi; O$(N) contiene tre informa- 
zioni: la direzione A (alto), B (bas- 
so), D (destra), S (sinistra) secon- 
do cui si arriva dal predecessore di 
O$(N) ad O$(N) stesso, un punta- 
tore di O8 cifre che dà il numero di 
nodo del predecessore di O$(N), 
ed una stringa di L2 caratteri che 
riassume in forma sintetica lo 
“schema” corrispondente al nodo 
N. (Per ulteriori dettagli si veda la 
figura 6.) 

® Per ogni nodo, diverso da 
quello di partenza, è sempre possi- 
bile eliminare una delle “mosse” 
consentite. Ad esempio, se O(N1) 
genera O(N2) con la mossa B (bas- 
so), possiamo ignorare l’ipotetico 
successore di O(N2) generato dallo 
spostamento A (alto), perché si ot- 
terrebbe come risultato lo stesso 
schema del nodo NI (che è già sta- 
to esteso). Nel programma RI- 
CERCA questa operazione si com- 
pie confrontando la “direzione” del 
nodo corrente, contenuta in D$, 
con la lettera corrispondente nella 
variabile I$ (I$ sta per “Inverso”); 
quest’ultima viene quindi ignorata 
nell’estendere il nodo in questione 
(vedi la subroutine 1240). 

® Può darsi che una serie di 
mosse riporti ad un nodo già prece- 
dentemente esteso (ciò significa 
che lo spazio degli stati per il gioco 
del 15 è un grafo, non un albero). 
Per questo motivo si controlla se i 
successori generati nelle righe da 
1360 a 1610 (subroutine 1240) sono 
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già stati considerati (subroutine 
820, richiamata alla riga 1530). 

® Ogni mossa possibile nel gioco 
del 15 è associata ad un numero da 
uno a quattro (1 rappresenta lo 
spostamento in giù della piastrina, 
2 lo spostamento a sinistra, 3 in su, 
4 a destra). Le variabili che si ser- 
vono di questa numerazione sono 
X(N), Y(N), D$ e I$. 

@ Nella rappresentazione dello 
schema con caratteri, il punto sim- 
boleggia la posizione dello spazio 
vuoto. 

© Il programma RICERCA è 
stato provato su un TRS-80 model- 
lo I e dovrebbe funzionare senza 
modifiche su PET Commodore, 
Radio Shack TRS-80 modello III, 
Apple II e su qualsiasi altro com- 
puter che utilizzi la versione Micro- 
soft del Basic. Tutte le righe di 
commento (REM) possono essere 
tolte senza che le prestazioni del 
programma vengano alterate. 


I metodi di ricerca 
sistematica sono 
sostanzialmente tre 


Un primo metodo di ricerca si- 
stematica su un albero può essere 
descritto così: estendere il nodo 
iniziale, memorizzando tutti i suc- 
cessori (che stanno a livello 1); se 
nessun nodo è una meta, si esten- 
dono tutti i nodi del livello 1 per 
ottenere quelli di livello 2; si ripete 
il procedimento finché si trova una 
meta o finché non si trovano più 
nodi da estendere. 

In termini dell’algoritmo princi- 
pale di ricerca (figura 5), questo 
metodo detto breadth-first viene 
implementato ponendo i successori 
appena generati in cima alla lista 
OPEN - oppure, equivalentemen- 
te, assegnando loro un valore 
O(N) uguale al livello in cui si tro- 
vano. La figura 7a mostra l’ordine 
in cui i nodi vengono estesi secon- 
do la ricerca breadth-first; si noti 
che tutti i nodi di livello r vengono 
estesi prima di qualsiasi nodo di li- 
vello (n+1). Il listato 2 è quello 
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1950 


2000 
2010 
2020 
2030 


2100 
2120 
2130 


2150 


2170 
2180 
2190 


O IF RIO 
PRINT" 
PRINT: 
RETURN 


2160 REM 


NEXT N 
FRINT: PRINT: FRINT 
THEN PRINT"I": GOTO 


REM INIZIALIZZAZIONE LISTE “CLOSED”, C, l$ VUOTI 
1960 C9=0 

1970 Hi=08+1: 
1980 E1$ 


L2=R9%R9. 


"RICERCA" 
1990 G$="NON META" 


CONTROLLA SE E" UNA META 

RESTITUISCE G$="META" 0 "NON META" 

2040 03$="12345678." 

2050 IF R9=4 THEN Q3$="123456789ABCDEF. " 

2060 D4$=RIGHT®(A$(M1),L2) 

2070 .IF 03$=04$ THEN G$="META": N6=09+1 

2080 REM -— N6=INDICE DI META=09+1 PERCHE” 09 PUNTA 
2090 REM -— ALL’ULTIMO NODO CONSIDERATO: VEDI 560-580 


RICOSTRUISCE LA SOLUZIONE DA 0$(N1) 


-- FINCHE IL PUNTATORE="IT" 
ID$(0$ (N6) ,08+1,1) 

"I" THEN 2200 

: R$(R1)=0% 

2200 MiS=LEFT$ (08 (N6) 08) 

2210 N6=VAL (01%) 

2220 IF Qsc>"I" THEN 2170 


2240 IF Ri<=0 THEN PRINT: FRINT“ERRORE ZERO NEL BACKTRACK": RETURN 
PRINT"LA SOLUZIONE E?"3 


TO 1 STEP -i 


"PAS 


PRINT 


listato 1b: 


130 


170 
210 
260 
360 


400 
430 
450 
460 
470 


550 
570 


595 


610 


660 


680 


710 


740 


EXIT=no, META=no, routine d’inizializzazione 
OPEN=nodo iniziale 


do while OPEN non vuota e EXIT=no 
: A=nodo in cima a OPEN 
: sposta A da open a CLOSED 
: estende A ai successori A(N) 


: if ci sono successori 
: for ogni successore 
: controlla se è meta 
: if il nodo è meta 
: poni G=indice del nodo, META=sì 
: poni EXIT=sì 
1 else 


: calcola il “valore” del nodo 
: inserisci il nodo col valore in OPEN 
: end if 
: end del ciclo for 
: end if 
: end while 


if META=sì 
: ricostruisce la soluzione a partire da G 
: stampa la soluzione 

else 
: stampa messaggio di errore 

end if 

end program 


Nome della 


variabile Uso 

A$(N) Vettore dei successori generati dalla situazione attuale dello schema E$(I,J); vedi A9. 

F$(N) Stringa di caratteri corrispondente allo schema F$(I,J); vedi la subroutine alla riga 1040. 

O(N) Numero d’ordine del nodo N nella lista OPEN; il nodo appartiene alla lista CLOSED se O(N)>90000. 

O$(N) Dati del nodo N della lista OPEN; vedi il testo. 

R$(N) Lettere che, lette in ordine inverso, danno la soluzione del gioco; vedi R1. 

X(N), Y(N) Incrementi dalle posizioni x ed y che producono lo spostamento nella direzione N, N=1,2,3,4. 

E$(1,J) Rappresentazione del nodo attuale in forma estesa; I e J variano tra 1 e R9. 

F$(1,J) Schema ausiliario che serve per generare i successori dello schema E$(1,J). 

A9 Numero di successori generati senza ripetizioni; vedi A$(N). 

co Numero di nodi segnati come già estesi, vedi O(N). 

D$ I caratteri di D$ sono i vari movimenti possibili (in basso, a sinistra, in alto, a destra) in ordine (cioè mossa 
2=MID$(D$,2)=“S”=sinistra; la mossa 5, I, significa “inizio” e si applica solo al nodo iniziale). 

E9$ Direzione usata per ottenere il nodo attuale a partire dal suo predecessore. 

G$ Indica se A$ (M1) è meta o no. 

G1 Numero di successori generati prima che si controlli se ci sono ripetizioni. 

H1 (Indice del primo carattere di gioco di O$(N)) meno 1; serve per elencare gli L2 caratteri dello schema. 

L2 Numero di caratteri nello schema corrente; =9 per lo schema di ordine 3,=16 per lo schema di ordine 4. 

NI Indice di O(N) che dà il più piccolo numero d’ordine; il nodo N1 sarà il prossimo ad essere esteso. 

07 Dimensione massima dei vettori O(N) e O$(N). 

08 Numero di cifre del puntatore di 0$(N) al suo predecessore; è fissato a 3, ma può essere ampliato per consentire 
ricerche più complesse. 

09 Numero dei nodi (estesi o non estesi) nella lista O$(N); i nuovi nodi seguenti saranno posti in O$(09+1). 

09$ Direzione di backtrack dal nodo attuale al predecessore; vedi il testo. 

RI Numero di passi per ottenere la soluzione; vedi R$(N). Inoltre, valore prodotto dalla subroutine 9900. 

R9 Ordine del problema; uguale a 3 per lo schema a 9 caselle ed a 4 per lo schema a 16 caselle. 

SI Minimo numero d’ordine nel vettore O(N), SI=O(N1). 


Tav. 1. Principali variabili del programma Basic RICERCA (vedi listato 1). 


della subroutine che implementa 
questo algoritmo; tradotta in pseu- 
dolinguaggio è: 


9900 valore del nodo ritornato, 
R1=valore del padre 
O(N1)+1 


Nella ricerca breadth-first, po- 
nendo il “valore” di un nodo ugua- 
le al suo livello si ha che, prima di 
qualsiasi nodo di livello n+1 (con 
“valore” n+1), vengono estesi tutti 
quelli al livello n. Nella riga 9900 
viene tolto il valore 90000, perché 
il nodo padre O(N1) è stato 
“segnato” come già esteso aggiun- 
gendogli appunto 90000. 
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Un altro modo di affrontare la 
ricerca è l’a/goritmo depth-first. In 
esso si estendono ripetutamente i 
successori di un dato nodo (finché 
nessuno dei nodi ottenuti può esse- 
re esteso) prima di cominciare ad 
estendere un altro modo dello stes- 
so livello; insomma, si percorre 
l’albero dall’alto in basso invece 
che in orizzontale e, in sostanza, i 
nodi terminali vengono generati ed 
estesi da sinistra verso destra. Nel- 
la figura 7b è illustrato l’ordine in 
cui i nodi di un albero vengono 
estesi nella ricerca depth-first; la 
subroutine da inserire in RICER- 
CA è quella del listato 3. In pseu- 
dolinguaggio corrisponde a 


9900 valore del nodo ritornato, 
R1=valore del padre 
O(N1)-1 


In una ricerca depth-first pura, i 
nodi appena generati dovrebbero 
essere estesi prima di qualsiasi al- 
tro nodo appartenente alla lista 
OPEN già da estensioni preceden- 
ti. Una soluzione consiste nel porre 
il “valore” del successore uguale a 
quello del padre meno 1. Poiché le 
subroutine 9900 sceglie il nodo con 
valore minimo nel vettore O, l’or- 
dine in cui si effettuano le estensio- 
ni viene modificato. 

Seguendo l’algoritmo depth-first, 
si ha l'impressione che generi nodi 


SIMrea ii” 


è l’unico 


sistema completo 


a 550. 000 lire. 


ZX81 8 k ROM, 1k RAM L. 199.000 


ESPANSIONE 16 k RAM 
STAMPANTE ZX 


Prezzi IVA esclusa. 


L. 131.000 


L 220.000 


Sinclair, sempre Sinclair: poco più di mezzo 
milione per un completo sistema di 
computing. 

Guarda, confronta, cerca un'alternativa! 

A questo prezzo non trovi neanche un'unità 
centrale: fi uriamoci poi 16 k e la stampante. 


COMPUTER 
Oggi più che mai la chiave che apre le 


e apre | A DIVISION OF G.B.C. 
porte dell'informatica per tutti è Sinclair. 


Per informazioni scrivere a CASELLA POSTALE 10488 - MILANO 


REBIT 


Etichetta Uso 


820 Input: Schema F$(1,J), vettore O$(N). 
Calcolo: Si controlla se lo schema F$(I,J) è già stato esteso. 
Output: Q03$=“DOPPIO” o “NON DOPPIO”. 


950 Input: Vettore O$(N), 09. 
Calcolo: Calcolo del minimo nel vettore. 
Output: Indice N1, valore S1 tale che S1=O(N1) è il minimo in O(N). 


1040 Input: Schema F$(1,J). 
Calcolo: Riduzione dello schema a stringa di caratteri. 
Output: F$=Stringa di L2 caratteri. 


1130 Input: Stringa E$. 
Calcolo: Scompone la stringa negli schemi E$(1,J) e F$(1,J). 
Output: Schemi E$(I,J) e F$(1,J). 


1240 Input: Schema E$(1,J), numero di nodi N1, direzione E9$. 
Calcolo: Genera fino a tre successori dello schema (derivato dal nodo N1), elimina i nodi già estesi, completa i dati 
di ogni successore (direzione+puntatore+schema). 
Output: Tavola dei successori A$(N), A9. 


1660 Input: Numero NI, lunghezza voluta 08. 
Calcolo: Traduce NI in stringa; aggiunge gli zeri davanti. 
Output: Stringa “uguale”Q$ ad N1. 


1800 Routine di inizializzazione; input schema da risolvere. 


2040 Input: Nodo A$(M1), ordine del problema R9. 
Calcolo: Riduce il nodo in forma di stringa e controlla se è meta o no. 
Output: G4=“META” o “NON META”. 


2150 Input: Meta O$(NI1). 


Calcolo: Ricostruzione della soluzione tramite i puntatori e raccolta delle “direzioni” in R$(N). 
Output: Stampa la soluzione (R$(R1), R$(R1-1),...,R$(1)). 


9900 Input: Nodo O$(M1) da aggiungere alla lista, lista O(N) (ed altre variabili a seconda del metodo). 
Calcolo: Arrangiamento dei valori in O(N); calcolo del valore d’ordine del nodo M1, messo in R1, in modo che il 
nodo MI venga inserito nella lista OPEN con un numero d’ordine corretto. 
Output: Subroutine che implementa un certo algoritmo di ricerca. 


Tav. 2. Descrizione delle subroutine del programma RICERCA. 


senza mai fermarsi — ma senza ten- 

tare di avvicinarsi ad una meta (se ì 

non quando ci si trova all’estrema Listato 2: Routine che implementa la strategia di ricerca breadth-first. 

sinistra dell’a!bero). Lo svantaggio 9890 --RICERCA BREADTH-FIRST 

del metodo depth-first è che, prima 9896 --RISULTATO RI=VALORE DEL PADRE+1 

di tornare a livelli inferiori, si deve SCO, Rie CO NL EI) =90000 

arrivare alla fine di un ramo. Sicco- 

me gli alberi di solito sono molto 

estesi, se non infiniti, (e spesso esi- 

ste una meta a livelli bassi), l’algo- 

ritmo depth-first è generalmente 9890 --RICERCA DEPTH-FIRST PURA 

meno efficiente del metodo 209 RISONI) 90090331 

breadth-first: il primo scandisce su 

e giù l’albero in tutta la sua lun- 

ghezza, da sinistra a destra, mentre Listato 4: Routine che implementa una ricerca depth-first limitata. 

l’altro percorre ogni livello dalla ci- 

ma al fondo dell’albero, fermando- 

si se trova una meta a livello inter- 9905 Ri=(0(N1)-90000)-1 

medio. SRiS AEnIRSo ne me nico 
L'algoritmo depth-first limitato 

(figura 7c e listato 4) si può riassu- 


Listato 3: Routine che implementa una ricerca depth-first pura. 
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mere come segue. Scegliamo un li- 
vello arbitrario n; si effettua la ri- 
cerca depth-first non considerando 
(per il momento) tutti i nodi di li- 
vello maggiore o uguale ad n. Se 
non si trova una meta, la ricerca è 
trasferita ai nodi precedentemente 
ignorati, tralasciando quelli di li- 
vello maggiore o uguale a 2n. Si ri- 
pete il procedimento finché si trova 
una meta oppure si è percorso tut- 
to l’albero. Tutto si può riassumere 
in pseudolinguaggio così: 


9900 R3=livello di ogni “fascia” di 
ricerca 

9905 valore del nodo ottenuto, 
R1=valore del padre 
O(N1)-1 

9910 se il “valore” è uguale a R3 
riportarlo a zero. 


NODO 23 


(6b) 
0(10) = 5 08$(10) = «s g01 12345.786” 
0(23)=3 = d$(23) = «A g10 12345678." 


Fig. 6. La rappresentazione del gio- 
co dell'8 all’interno del programma 
RICERCA. La condizione di ogni 
nodo è definita da due variabili. La 
prima è O(N), il numero d’ordine 
del nodo N dell’albero. L’altra è 
O$(N), una stringa composta da: 

® la direzione seguita per ottenere 
N dal nodo padre. 

© il numero di nodo del padre di N 
(serve per collegare N al nodo di 
partenza) 

®© la situazione dello schema relati- 
vo al nodo N, scritta per riga. 

La figura 6a mostra parte di un ipo- 
tetico albero; la figura 6b invece dà 
la rappresentazione dei nodi 10 e 23 
all’interno del programma. 


LIVELLO 


Fig. 7. Ordine di estensione secondo tre diversi algoritmi esaustivi di ricer- 
ca. I numeri alla destra di ogni modo suggeriscono l’ordine in cui l’albero 
si estende. Nella figura 7a, secondo l'algoritmo breadth-first, la ricerca si 
sviluppa in orizzontale, un livello dopo l’altro; nella figura 7b, la ricerca 
depth-first percorre l’albero nel senso indicato dalle frecce; la ricerca depth- 
first limitata, in figura 7c, combina le proprietà degli altri due metodi. Que- 
sti algoritmi di ricerca possono essere provati inserendo le routine dei listati 
2, 3 0 4 nel programma RICERCA (listato 1). 


Il “valore” da ritornare al pro- 
gramma sarà perciò zero o negati- 
vo. Questa ricerca è limitata di vol- 
ta in volta al livello R3 ponendo un 
nodo a lato del livello corrente al 
valore più alto possibile, zero, così 
che sarà esteso solo quando la fa- 
scia in questione si sarà estesa fino 
al limite. Il valore R3 può essere 
fissato nella routine d’inizializza- 
zione 9500. La ricerca depth-first 
limitata allevia gli svantaggi del 
metodo depth-first puro, perché ef- 
fettua una ricerca eventualmente 
esaustiva solo a fascie di livelli. Ma 
si tratta di un compromesso: se c’è 


una meta in profondità e nella par- 
te sinistra dell’albero, la si trove- 
rebbe prima con la ricerca depih- 
first pura. (In generale, l’efficienza 
delle due tecniche depth-first  di- 
pende in grande misura dalla posi- 
zione orizzontale delle mete nel- 
l’albero.) 


Appunti sulle prove 


Ora abbiamo gli strumenti per 
analizzare gli algoritmi esaustivi di 
ricerca. Il programma Basic RI- 
CERCA (completato con l’appro- 
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priata subroutine 9900) richiede in 
input lo schema iniziale (letto riga 
per riga, con le lettere da A ad E 
per rappresentare le cifre da 10 a 
15 nella versione di ordine 4, ed il 
punto decimale al posto dello spa- 
zio vuoto), elenca i nodi quando 
vengono generati ed estesi, e stam- 
pa la soluzione del gioco. Se volete 
evitare di inserire uno schema ad 
ogni esecuzione del programma, 
potete aggiungere 


1850 Q2$=“<schema in input>”: 
1855 GOTO 1910 


Le mie osservazioni e le mie pro- 
ve sono basate sul campione di gio- 
co dell’8 illustrato in figura 8; in es- 
sa uno schema è definito dai suoi 
numeri di riga e di colonna. Si noti 
che il numero di riga corrisponde 
al numero di mosse sufficienti per 
risolvere il problema e che ogni 
schema è un sottoproblema di 
quello che sta sotto nella stessa co- 
lonna. 

La tavola 3 fornisce i dati relativi 
ad alcuni schemi ed agli algoritmi 
breadth-first e depth-first limitato. 

Ricordate che i nodi di CLO- 
SED sono quelli già estesi ai suc- 
cessori, mentre quelli di OPEN so- 
no quelli generati ma non ancora 
estesi; perciò, il numero totale di 
nodi generati da un algoritmo è da- 
to dalla somma di quelli delle due 
liste. 

Si tenga presente pure che i suc- 
cessori vengono generati per esten- 
sione nel seguente ordine: in bas- 
so, a sinistra, in alto, a destra. Ciò 
è molto importante per le ricerche 
esaustive, ma lo è meno in altri ca- 
si. 


Osservazioni e discussione 


Cercate di rispondere alle se- 
guenti domande prima di consulta- 
re le risposte. 

A proposito della ricerca 
breadth-first: 

® Avrete già notato che il nume- 
ro di nodi estesi per ottenere una 
soluzione varia a seconda delle di- 
rezioni scelte; le mosse “in basso” 
e “a sinistra” tendono a rendere 
più rapida la soluzione, mentre gli 
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(3a) 
Schema Soluzione El.Open El.Closed Totale 
(1,1) Ss 3) 1 4 
(1,2) A 3 1 4 
(2,1) AS 7 4 11 
(2,2) SA 6 3 9 
(2,3) SS 4 3 7 
(3,1) SAS 9 8 17 
(3,2) ASA 7 6 13 
(3,3) ASS 10 9 19; 
(4,1) BSAS 12 11 23 
(4,2) SASA 10 9 19 
(4,3) DASS 16 21 37 
(3b) 
Schema Soluzione El.Open El.Closed Totale 
(1,1) Ss 3 1 4 
(1,2) A 3 1 4 
(2,1) AS mu 12 23 
(2,2) SA 8 7 15 
(2,3) ES 10 9 19 
(3,1) SAS 11 13 24 
(3,2) ASA 9 7 16 
(3,3) ASS 12 17 29 
(4,1) BSAS 9 8 17 
(4,2) SASA 7 6 13 
(4,3) DASS 16 21 37 
(3c) 
Schema Soluzione Livello (n) El.Open El. Closed Totale 
(2,2) SA 2 6 3 9 
3 6 5 11 
4 8 7 15 
5 12 11 23 
(2,3) SÌ 2 vd: 3 di 
3 6 5 11 
4 10 9 19 
5 12 17 29 


Tav. 3. Prove di RICERCA. Nella ricerca breadth-first (3a), “El Open” è 
il numero di nodi creati ma non ancora estesi. “El. Closed” è il numero di 
nodi già estesi. Poiché l'algoritmo breadth-first effettua la ricerca uniforme- 
mente a partire dal nodo iniziale, è il più affidabile tra i metodi esaustivi di 
ricerca. Nella ricerca depth-first limitata (3b), con limite n=4, per tutti gli 
schemi al livello quattro il numero di nodi generati è minore o uguale che 
nella ricerca breadth-first. Variando il limite n, l'algoritmo effettua la ricer- 
ca a “fascie” (3c), ognuna di profondità n. Quando n diventa maggiore del 
numero di mosse della soluzione (in questo caso due), l'efficienza dell'al- 
goritmo si accosta a quella del metodo depth-first. 
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In tutta Italia, con più computer. 


spostamenti “in alto” e “a destra” 
la allungano. Confrontate lo sche- 
ma (2,3) con (2,1) e (4,2) con 
(4,3) 


® (Domanda 1) Come si riflette 
questa tendenza sul numero di no- 
di della lista CLOSED? (Le solu- 
zioni seguono nel riquadro.) 

® (Domanda 2) Come mai lo 
schema (3,1), con soluzione SAS, 
dà luogo a più nodi di (3,2), che ha 
soluzione ASA? Le mosse S non si 
estendono prima delle mosse A? 

® Si noti che i due schemi (1,1) e 
(1,2) hanno lo stesso numero di 
nodi in OPEN e CLOSED, sebbe- 
ne la soluzione S di (1,1) preceda 
quella di (1,2), A. Questo succede 
perché il programma RICERCA 
genera tutti i successori validi nel 
nodo che viene esteso, prima di 
controllare se sono mete. 

® (Domanda 3) Esaminando la 
soluzione di due schemi, di cui uno 
è sottoproblema dell’altro, si può 
notare un fatto curioso: il sottopro- 
blema genera un nodo non prodot- 
to dal problema più ampio. Trova- 
te le soluzioni degli schemi (2,1) e 
(3,1) con la subroutine breadth- 
first ed elencate i nodi generati. 
Qual è il nodo in questione? Per- 
ché discende da (2,1) e non da 
(3,1)? 


Sulla ricerca depth-first: 


® Troverete anche voi che, pri- 
ma di trovare una soluzione con il 
metodo depth-first, è facile supera- 
re i limiti di memoria (e di pazien- 
za). Questo perché bisogna discen- 
dere fino in fondo all’albero, che è 
molto alto anche per problemi pic- 
coli come il gioco dell’8 in ordine 
3. Per farvi un’idea, provate a ri- 
solvere col programma RICERCA 
e l’algoritmo depth-first il proble- 
ma di ordine 2. 


Per quanto riguarda la ricerca 
depth-first limitata: 


® La tavola 3b illustra i risultati 
della soluzione degli stessi schemi, 
(2,2) e (2,3), usando limiti diversi 
(la variabile D3 della riga 9900). 
Poiché entrambi gli schemi vengo- 
no risolti in due mosse, il limite de- 
termina semplicemente di quanto 
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Meta 
Numero di riga 


(1) Ad una mossa 


(2) A due mosse 


(3) A tre mosse 


(4) A quattro mosse 


3 
6 
8 


CIO 
DOW 


POL MOW 
DIWL DOW 


Fig. 8. Tavola di rappresentazione del gioco dell’8, usata nel testo. Igno- 
rando la riga della meta, ogni schema è definito dai numeri di riga e di 
colonna. P.es. lo schema più a destra nella riga “a due mosse” è chiamato 
(2,3). Si noti la relazione tra gli schemi della stessa colonna: ogni schema è 
un sottoproblema di quello immediatamente sotto. 
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Fig. 9. Soluzione dello schema (3,1) con l'algoritmo breadth-first. L'albero 
è stato sviluppato solo fino a raggiungere una meta (contrassegnata nella 
riga in fondo). I numeri nel cerchietto nero suggeriscono l’ordine in cui i 
nodi vengono estesi per risolvere il gioco. Il nodo B è il nodo di partenza 
dello schema (2,1), sottoproblema dello schema (3,1); i numeri nei quadra- 
tini indicano invece l'ordine in cui i nodi si estendono per risolvere (2,1). 


bisogna scendere con la ricerca pri- 
ma di ritornare a livelli inferiori. 

® Per definizione una ricerca 
depth-first limitata al livello n si 
estende n-1 livelli alla volta, gene- 
rando i nodi ma non estendendoli 
immediatamente. Dunque questo 


metodo è più efficiente quando il 
livello della ricerca è uguale al nu- 
mero di mosse della soluzione: la 
ricerca scende per la parte sinistra 
dell’albero, si ferma al livello n, e 
scandisce il sottoalbero del livello n 
da sinistra a destra. 


Fig. 10. Soluzione dello schema (3,2) con l'algoritmo breadth-first. I nume- 
ri nel cerchietto a destra di ogni nodo indicano l’ordine in cui vengono 
estesi. I nodi da 8 a 13 (sei nodi) sono nella lista OPEN (cioè non sono 
ancora estesi), mentre quelli da 1 a 7 appartengono a CLOSED. 
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©) 


LIVELLO 
0 


= BREADTH- FIRST 
— — — = DEPTH-FIRST LIMITATA 


(11b) 


Fig. 11. Un confronto di efficienza. La ricerca depth-first limitata produce 
sempre un numero di nodi minore o uguale della breadth-first quando il 
limite di ricerca è uguale al livello della meta. La figura lla mostra un 
esempio dell'efficienza del metodo depth-first limitato rispetto al breadth- 
first. Nella figura 11b, i due tipi di ricerca generano lo stesso numero di 
nodi, con lo stesso albero ma una meta diversa. La tecnica breadih-first si 
estende sempre lungo tutto l'albero fino al livello n-1, mentre la versione 
limitata della depth-first può farne a meno se la meta è ben disposta. 


® Ho fatto una scoperta interes- 
sante: è sicuro che la ricerca depth- 
first limitata si estende con numero 
di nodi diversi o uguale della 
breadth-first quando il limite di ri- 
cerca (n) è uguale al numero di pas- 
si (s) nella soluzione. Una dimo- 
strazione intuitiva di questo fatto si 
può dedurre dall’esempio in figura 
11. Inoltre, si può dedurre che le 
due tecniche siano più o meno allo 
stesso grado di efficienza quando n 
è solo di poco maggiore di s. 

® (Domanda 4) In una ricerca 
depth-first limitata al livello n per 
un problema risolvibile in n mosse, 
quali sono le due caratteristiche 
(per quanto riguarda la posizione 
della meta) che influenzano princi- 
palmente il tempo di soluzione? 
Qual è la più importante? 

® Con la ricerca depth-first limi- 
tata a livello maggiore del numero 
di mosse nella soluzione del pro- 
blema (n>s), il numero di nodi 
estesi cresce come la differenza tra 
i due (si controllino i risultati della 
tavola 3b). 

® Quando il limite di ricerca è 
inferiore al numero di mosse della 
soluzione (n<s), si hanno due pos- 
sibilità. Se s è multiplo di n, l’effi- 
cienza della ricerca è intermedia 
tra quelle dei metodi breadth-first e 
depth-first limitata a livello n=s 
(come si vede nella figura 12). Tut- 
tavia, se s non è multiplo di n, si 
hanno risultati misti. La ricerca 
depth-first si spinge a fondo parec- 
chi livelli sotto quello della soluzio- 
ne e può rivelarsi migliore della ri- 
cerca breadth-first o peggiore a se- 
conda che il numero di nodi estesi 
superi il livello s ed a seconda del 
numero di nodi estesi dalla ricerca 
breadth-first che non sono estesi 
dalla depth-first limitata (vedi figu- 
ra 12). 

® (Domanda 5) Un caso speciale 
di ricerca depth-first limitata si ha 
quando il limite è uno (r=1). Co- 
me si chiama questa ricerca parti- 
colare? 


Risposte 

1. Se un certo nodo della solu- 
zione è uno degli ultimi da esten- 
dere (diciamo in alto o a destra), 
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Fig. 12. Confronto tra quattro metodi esaustivi di ricerca. Dato l’albero 
parziale con meta al livello sei, le quattro linee A, B, C e D separano i nodi 
estesi dalle seguenti tecniche: 
a) ricerca depth-first limitata con n=s=6 

b) ricerca depth-first limitata con s multiplo pari di n (s=6,n=3) 
c) ricerca breadth-first 
d) ricerca depth-first limitata con s non multiplo pari di n (s=6,n=3). 


allora la ricerca breadth-first si 
estenderà prima in altri modi im- 
produttivi (tenete presente l’ordi- 
ne: in basso, a sinistra, in alto, a 
destra). 

È l’estensione di questi nodi che 
accresce il numero di nodi della li- 
sta CLOSED. 

2. Sì, le mosse S vengono estese 
prima delle A, ma una analisi della 
situazione mostra che l’ordine con 
cui si estendono i nodi (basso, sini- 
stra, alto, destra) è solo uno dei 
tanti fattori che influenzano il nu- 
mero di nodi estesi dal metodo 
breadth-first. Consideriamo le figu- 
re 9 e 10. Se contate il numero di 
nodi terminali (che devono ancora 
essere estesi) e di nodi intermedi 
(già estesi), vedrete che esso cresce 
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come quelli elencati nella tavola 
2a. (Il nodo di partenza deve esse- 
re considerato chiuso; inoltre, per 
il momento, ignoriamo il nodo C 
della figura 9). 

I due alberi sono identici come 
numero e distribuzione di nodi fino 
al livello due (nodi da 1 a 9). La 
ragione principale per cui lo sche- 
ma (3,1) estende più nodi del (3,2) 
è che il primo deve estendere più 
nodi a livello due per trovare la 
meta. Perché? Il cammino che va 
dal nodo 3 (di entrambi gli alberi) 
alla meta nel problema (3,2) — il 
ramo $ in figura 10 — si estende pri- 
ma del corrispondente — il ramo A 
in figura 9. 

In questo caso 1°S nella soluzione 
dello schema (3,2) è più importan- 


te dei due S nella soluzione di 
(3,1), perché previene l’estensione 
di parecchi nodi “fertili” (il sei ed il 
sette nella figura 9) nel penultimo 
livello. 

Tuttavia, non è il caso di genera- 
lizzare. I fattori che influenzano il 
numero di nodi generati sono in- 
terdipendenti al punto che è im- 
possibile calcolare i loro rapporti di 
forza al di fuori del contesto di un 
esempio specifico. : 

3. Consideriamo la figura 9. 
L’intero albero (tranne il nodo C) 
è l'albero di soluzione dello sche- 
ma (3,1). I nodi nell’area colorata 
(compreso C) sono l’albero di solu- 
zione per (2,1). Risulta quindi 
chiaro il motivo per cui il nodo C 
viene generato solo da (2,1). Se il 
nodo B è di partenza, tutte quattro 
le direzioni generano successori va- 
lidi, ma se B è stato generato da 
A, nodo iniziale del problema 
(3,1), il programma RICERCA 
ignora il nodo C, poiché la direzio- 
ne di passaggio da B a C è opposta 
alla precedente, che trasforma A in 
B. Di nuovo, l’interazione di forze 
all’interno dell’algoritmo dà luogo 
a risultati inattesi ma corretti. 

4. I due fattori importanti in 
questa situazione sono la 
“profondità” e la “distanza da 
sinistra” della meta. Poiché l’algo- 
ritmo depth-first limitato scandisce 
i nodi da sinistra a destra, la 
“distanza da sinistra” della meta è 
il fattore principale: un nodo che si 
trovi nel mezzo dell’albero ma più 
a sinistra di un altro verrà esteso 
prima. E ciò è vero anche per la 
ricerca depth-first pura. 

5. Una ricerca depth-first limita- 
ta al livello 1 è equivalente alla ri- 
cerca breadth-first, l'algoritmo ef- 
fettua una ricerca esaustiva su tutto 
il livello 1 dell’albero. La numera- 
zione dei nodi secondo l’algoritmo 
depth-first limitato dimostrerà l’e- 
quivalenza dei due metodi. 


Conclusioni 


La seconda parte si occuperà di 
algoritmi euristici che stimano il 
“valore” di un dato nodo per arri- 
vare sicuramente ad una soluzione 
senza effettuare una ricerca esau- 
stiva. 


Z-80 


Pag. 540 L. 24.000 (Abb. L. 21.600) 
Cod. 328D Formato 14,5 x 21 


Questi due libri sono stati ideati come | 
testi autonomi e completi per imparare la 
programmazione in linguaggio Assembler, 
usando lo Z80 o il 6502 (i microprocessori 
forse più diffusi). 

Scorrevoli da leggere, non richiedono 
alcuna conoscenza di base, ne di 
elettronica generale né di 
programmazione. 

Sono stati progettati, infatti, sotto forma 
di corso che, sistematicamente, passo 
dopo passo, porta il lettore dai concetti di 
base fino alle tecniche di programmazione 
avanzate, al fine di permettergli la 
realizzazione di programmi sempre più 
complessi. 

L’esposizione progressiva, rigorosamente 
strutturata, comporta la risoluzione 
obbligatoria di esercizi attentamente 


6502 


graduati al fine di verificare che si sia Pag. 384 

veramente capito quanto presentato? L. 22.000 

Ben si prestano, perciò, a chi si avvicina Lr 

per la prima volta ai microprocessori e ne (Abb. L. 19.800) 
Cod. 503B 


vuole conoscere e capire gli aspetti 
essenziali di programmazione. Per tutti 
coloro che già hanno programmato, 
invece, sarà una vera e propria miniera di 
informazioni sulle caratteristiche specifiche 
del microprocessore d’interesse, 
evidenziandone, nel contempo, vantaggi € 
svantaggi. 
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BU DOVDNUSADUNROLOLRON EDI TRADOROROLENDANOTONOROO0000ONENACO NNO v0A DONI 0ADONa0O 


Come tradurre i termini stranieri? 


Lexikon 


sono essere semplici, ma conviene che sie- 

no miste con l’altre lingue. Ma quella lin- 
gua si chiama d’una patria, la quale convertisce 
i vocaboli che ha accettati nell’uso suo, ed è sì 
potente, che i vocaboli accettati non la disordi- 
nano, ma ella disordina loro, perché quello 
ch’ella reca da altri, lo tira a sé in modo che par 
suo”. 

In altre parole: nessun ostracismo alle parole 
straniere; ma la lingua, la nostra in questo caso, 
ha un carattere, uno stile, un’originalità da di- 
fendere: non solo rifiutando la parola straniera 
quando è del tutto inutile, ma applicando le re- 
gole della grammatica nel declinare i termini 
stranieri, quando questi non si possono o non si 
vogliono evitare. 

Credo non esista un settore della nostra lin- 
gua dove queste riflessioni siano più appropria- 
te, del “gergo” dell’informatica. La massa di 
termini angloamericani che ha investito la lin- 
gua italiana è andata via via crescendo negli ul- 
timi dieci o venti anni. Come si può mettere un 
po’ d’ordine in questa materia, chiarendo le 
idee agli addetti ai lavori e ai neofiti, obbligati 
ad usare questo gergo? 

Vi sono tre semplici regole. Prima regola: 
tradurre quando è possibile. Attenzione, qui 
non si tratta di tradurre a tutti i costi trovando 
termini strampalati (come qualcuno fa, volendo 
tradurre file con flusso 0 software con logicale) 
o adattando in modo non sincero i termini stra- 
nieri all’italiano (digitare, inputare). Si tratta 
appunto di tradurre quando è possibile, quando 
la sensibilità linguistica dice che si può fare: sta- 
tement si traduce con istruzione, printer con 
stampante, random con casuale. 

Seconda regola. Se non è possibile tradurre, 
ma si ritiene che il termine straniero possa esse- 
re accettato nel linguaggio italiano (per lo me- 
no nel linguaggio settoriale dell’informatica, co- 
me software e hardware per esempio, o record, 
bit, byte,...) bisogna ricordare che la grammati- 
ca prescrive di lasciare immutati al plurale i no- 
mi che terminano in consonante: perciò come 
scriviamo e pronunciamo i film, gli sport,i bar, i 


Giovo Machiavelli: “...Le lingue non pos- 


tram (e non films, sports, bars, trams) dobbia- 
mo scrivere e pronunciare i file, i record, i bit e 
i byte. Quante volte si vedono “un milione di 
bytes” e “due files”! Chi aggiunge questa “s” 
credendo di dimostrare di conoscere l’inglese, 
fa invece vedere di non conoscere l’italiano. 

Ed infine la terza regola. Se non è possibile 
tradurre, e d’altro canto non si ritiene di accet- 
tare il termine straniero nel linguaggio italiano, 
bisognerà allora usare il termine come tale, 
cioè come straniero; e bisognerà scriverlo ov- 
viamente nella forma plurale della sua lingua: 
le utilities, i bugs, i jobs. In tal caso andranno 
sottolineati in un testo manoscritto o messi in 
corsivo in un testo a stampa. 

Queste sono le tre regole. Ma rileggendo ora 
la frase di Machiavelli, mi accorgo che una in- 
terpretazione restrittiva arriverebbe a conclude- 
re che egli consiglia di prendere, per esempio, 
to bootstrap e farlo diventare bootstrappare, to 
shift e farlo diventare shiftare. In questo senso 
Machiavelli è superato dall’uso attuale. 

Ormai non sono più i tempi in cui Décartes si 
faceva diventare Cartesio, né quelli in cui si 
pretendeva di sostituire gas con gasse, taxì con 
tassì. Questa capacità di “disordinare”, lodata 
dal Machiavelli, è per fortuna quasi del tutto 
scomparsa. 


Cos'è successo a S. Pietro? 


() WILL CK 


TEXAS INSTRUMENTS 


Con lHome Computer Texas Instruments potete 
conversare nei cinque principali linguaggi: 
BASIC, PASCAL, TI-LOGO, ASSEMBLER e INGLESE. 


S| 


Se paragonate l’Home Computer 
TI-99/4A con i suoi concorrenti scoprirete che è 
un computer veramente eccezionale. 

Tanto per cominciare, vi consente di 
usare in programmazione i più importanti 
linguaggi: una qualità che è difficile trovare in 
altri computer simili. Ma soprattutto ha una 
capacità RAM disponibile all’utente di ben 16 K 
byte espandibile a 48 K byte. Con l’aggiunta di 
un modulo «Solid State Software»® può rag- 
giungere una capacità combinata RAM/ROM 
di 110 K byte. 


L’Home Computer TI-99/4A si può col- 
legare ad un normale apparecchio televisivo e 
può espandersi fino a diventare un sistema 
computerizzato completo con l’aggiunta di 
unità periferiche come ad esempio due normali 
registratori a cassetta, unità di controllo a 
distanza, memorie a disco, sintetizzatore della 
voce e stampante termica. 

Grazie alla interfaccia opzionale RS 232 
possono essere collegate altre unità periferiche 
quali modems di comunicazione, stampanti ad 
impatto e plotters. 

Bisogna poi aggiungere la sua alta risolu- 
zione grafica (256 x 192 punti), la capacità di 
operare con 32 caratteri su 24 linee in 16 colori, 
quella di emettere 3 tonalità in 5 ottave e di 
generare effetti sonori, quella di parlare grazie 
ad un sintetizzatore vocale e di conversare in 
BASIC, UCSD-PASCAL, TI-LOGO, ASSEM- 
BLER: Scoprirete che l'Home Computer 
TI-99/4A non può certo essere paragonato con i 
concorrenti. Soprattutto per quanto riguarda il 
prezzo: 598.000 lire IVA esclusa! 

Se volete risolvere qualsiasi tipo di pro- 
blema, potete usare la vasta gamma di moduli 
«Solid State Software»® Texas Instruments il cui 
uso è facilissimo. 

Inoltre ci sono già 600 programmi soft- 
ware disponibili in tutto il mondo. 

Dopotutto, è più che naturale aspettarsi 


alta tecnologia e prezzo acces- (o) 
sibile da chi ha inventato il 
microprocessore, il circuito fi 


integrato e il microcomputer. 


Vi aiutiamo a migliorare. 


TEXAS INSTRUMENTS 


Due programmi (un 


editor e un assembler) 
per programmare in 
linguaggio macchina 


di R. Baker 


Personal Software vi dà la possibili- 
tà di avere un dischetto con i due 
programmi di questo articolo già 
battuti, corretti e funzionanti. 

In fondo all’articolo tutte le indica- 
zioni. 


PERSONAL SOFTWARE 


Un assembler Basic 
per il PET/CBM 


uesto semplice ma potente 

assembler a due passi per il 

PET/CBM Commodore ge- 

nera direttamente file su di- 
sco di programmi caricabili. È 
scritto interamente in Basic, e dun- 
que può girare su tutti i modelli. 
Tutti i comandidi disco sono spedi- 
ti attraverso il canale di comandi- 
disco, e dunque può funzionare sia 
con DOS 1.0 (dischi 2040 e 3040) 
sia con DOS 2.x (dischi 4040 o 
8050). Il programma richiede un 
drive per floppy dise Commodore e 
almeno 8 Kbyte di memoria. Per 


ottenere il massimo vantaggio dalle 
caratteristiche del programma è 
utile una stampante. 

Il programma è stato scritto per 
schermo a 40 colonne e non è stato 
modificato per le nuove macchine 
a 80 colonne. 

Sebbene questo assembler sia 
scritto in Basic, il tempo d’assem- 
blaggio medio per ogni linea di co- 
dice sorgente è da uno a due se- 
condi sul secondo passo. Ho tenta- 
to di migliorarne le prestazioni li- 
mitando le funzioni disponibili ed 
eseguendo alcuni controlli prelimi- 


TS numero decimale 
esempio 12369 


$n mumero esadecimale con prefisso $ 


esempio $A0F2 
simbolo 
esempio TAG2 


. 


valore simbolico, valore del simbolo specificato, 


il valore attuale del program counter 


car letterale ASCII, valore ASCII del primo carattere dopo l’apostrofo, 


esempio 'S 


Tavola 1. Operandi delle istruzioni e delle direttive. 


valore o +valore 
—valore 


valore positivo dell’operando 
valore negativo in complemento a due 


valorel + valore? somma i due valori 
valorei — valore? sottrae i due valori 


valore1/valore2 


divisione dei due valori 


I risultati sono valori a 16 bit. 


Tavola 2. 


nari sui campi con il programma 
OGGETTO . ‘3, editor al momento della creazione 
del codice sorgente. 

Il maggior vantaggio di questo 


COLO assembler è che può assemblare 
IMMEDIATO ; ; . 
PAGINA TER programmi comunque grandi, poi- 
INDICE INDIFETIO F fa é | T 4, Î, 
TORTRE MOIS IO MEG, ché il file sorgente viene memoriz- 
INDICE PAGINA ZERO zato su disco. Inoltre, poiché l’out- 
HDICE PAGINA 7ERFÙ FER A agi - 
INDIRE TAO n put è un file di programma carica- 
IMFLICIIO H e. gl? CISCO . A 
A le bile, L intervallo di indirizzi usati 
PESI RELATIVO non è limitato, sempre che ogni 
$ABCD INDICE UTO REG. * Ci bl d 
INDICE Sa programma sia un blocco contiguo. 
‘ 
* DFERANDI E ESPRESSIONI 
* 
TAG mR 2 I G i 
TAG2 xyz 2 SCII3 PRIMO £ Editor 
ABC 1+$24 
150/11 . Ci 
0040 : GAL REL IO Il programma editor. (listato 1) 
sos 27 MELI RI RAT, prevede diverse funzioni per creare 
ALE AS +DEr "i 
rumero NEGATIVO In cone. | e correggere file sorgente che sa- 
Sol IoSenE ranno di input al programma as- 
FABRI ESSENPLER sembler. Ogni funzione vi permette 
rx COMANDO OPERANDO di avere una copia stampata del file 
ROMANDO > . 
Rei ipa ENO sorgente che viene scritto o letto. 
- MODO DI INDIRI?Z Questo editor effettua diversi con- 
ERRATO... RE ssa trolli per far in modo che la succes- 
DO 00 ENE #-200 ci a ® 
CRERTOIORI BI siva esecuzione del programma as 
3 = aXrI QFFRANDO sembler sia il più possibile veloce. 
ERRATO.... OPERANDO D 1 D) 
hi 1000 SIETE Inoltre, 1 assembler si aspetta le li- 
= 123 SECONDA DUPLICAZIONE nee sorgente di uno specifico for- 


mato nel file di input. L’editor per- 
mette anche di stampare i file sal- 


SIMBOLO ESA-VALORE-DEC IMALE è . 
vati su disco. 
ABC 

T2 

Ta 

TAG 

TAG2 

TS E 1000 
02.2.2.2. FPLA . 
x26 0000 ne La funzione CREA produce un 


Ma CIeIRO dad file sorgente originale dai dati in- 
6 ERRORI trodotti dalla tastiera. Ogni linea di 
codice sorgente consiste di un nu- 
mero di campi, variabile da uno a 
quattro: etichetta, comando, ope- 
rando e commento. I campi eti- 
chetta, operando e commento sono 
opzionali, ma il campo comando 


10 REM VOSOUOSGOGOSOA DASM EDITOR UAAR deve essere sempre presente affin- 
20 REM * ’ 3: 3 
30 REM * DI ROBERT BACKER * ché la linea possa essere accettata 


40 REM % ’ odi, 
‘50 REM. 10IIIVIPORAIIIONAIIIAIIAVIPIVA FIAS dall’editor. È 

40 REM L’unica eccezione a questa rego- 

Ù IS o . 

80 PRINT CHR$(147);SFC(8);CHR$(18)"D ASM EDITOR" la è la linea di tutto commento che 
90 CLR: US=CHR$(17): FOR I=1i TO 4c =U$+CHF$ (192): NEXT ls U$=1t+CHE$(145) seni È * Da 
100 B$=" ": FOR I=1 TO 31: Rs=B$+ NEXT I comincia con un asterisco (*). L e 
110 0$(1)=CHR$(18)+" CREA "+CHR$(146): D$(2)=CHFR$(18)+" EDIT "+CHE$(146) ditor non permette l’introduzione 
115 0$(3)=CHR$(18)+"COPIA "+CHR$(146): 0$(4)=CHR$ (18) +"LEGGI "+CHF$(146) rt : 

120 0%(5)=CHR$ (18) +"STAMPA"+CHR$ (146): 0$(65)=0$(5) di più di un certo numero di carat- 


125 0$(7)=CHR$ (192) +CHR$ (192) i i Î a 
130 OPEN 15,8,15: CRS=CHR$(13): PRINT UG teri per ogni campo, ed i caratteri 
140 PRINT" O — “CHR$(18)" FINE ": FRINT non permessi vengono ignorati. 
150 PRINT" 1 -— “50$(1)308(7);0$‘7)" NUOVO FILE SORGENTE": PRINT è A 

160 PRINT" 2 - “i 0$(2);0$(7);CHR$(174) Non si possono usare la virgola (,), 
165 PRINT SPC(15);CHR$(171);CHR$(192)" VECCHIO FILE SORGENTE" i due punti (:) e le virgolette (“) in 


170 PRINT" 3 - 3 0$(3);0$(7)CHR$(179): PRINT SFC(15);CHF$ (221) o 5 
180 PRINT" 4 0$(4):0$(7);CHR$(179): PRINT SFC(15);CHR$% nessun campo perché si tratta di 


190 PRINT" 5 - "s 0$(5);0$(7);CHR$(189): PRINT si H cu H Ò 
200 PRINT" 6 — "“50$(6);0$(7);0$(7)" FILE LISTATO" caratteri che il PET utilizza in mo 
do speciale. 


Come si crea un file sorgente 


34 


320 
330 


350 
360 


PRINT U$: PRINT "SCEGLI LA FUNZIONE CHE DESIDERI: 

GOSUR 2610: F=V: IF Rs="0" THEN PRINT CHR$(147): END 

IF _F<1 OR F>6 THEN 220 

GOSUB 2250: IF F>4 THEN GOSUR 2310 

IF F>3 THEN 270 

PRINT"VUDI UNA COPIA STAMPATA"3> GOSUB 2630: IF A=53.THEN GOSUR 2310 


REM CREO UN NUOVO FILE SORGENTE. 

REM ==: 

GOSUB 2320 

OPEN 2,8,2,DR$+":"+FL$+",S,4": GOSUB 2440: IF EN THEN 2210 
GOSUB 2250 


T$=0$: GOSUB 2470 


370 REM CAMPO ETICHETTA 


380 
390 
400 
40 
420 
430 
440 
450 
460 
470 
480 
490 
500 


REM 

PRINT: PRINT CHR$ (145); TAB(7);: C=1 
GOSUB 2660: IF C=1 AND A=42 THEN 1090 
IF A=32 THEN 600 

ss$= IF (A>64) AND (A<91) THEN 550 
IF (C>1) AND (A>47) AND (A<91) THEN 550 
IF A=160 OR B=17 THEN 390 

IF B=13 OR B=19 THEN 1370 

IF A=157 THEN GOSUB 2710 

IF A=29 THEN GOSUB 2690 

T=6: IF A=20 THEN GOSUB 2730: GOTO 560 
IF_(A<>148) OR (LEN(L$)>5) THEN 400 
GOSUB 2770 


510 GOSUR 2660: IF A=141 OR B=19 THEN 1370 


520 
530 
540 
550 
560 
570 
580 


IF (A>64) AND (A<91) THEN 540 

IF (C=1) OR (A<48) OR (A>59) THEN S10 
GOSUB 2820: GOTO 560 

IF C<7 THEN GOSUB 2540 


590 REM 


6500 


PRINT TAB(15) 


610 GOSUB 2660: IF 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


IF (A>32) AND (A<96) AND (C<6) THEN GOSUB 2540: GOTM 710 
7) OR (C=1 AND A=160) THEN 390 
» PRINT CHR$(145);: GOTO 110 


IF A=157 THEN GOSUB 2710 

IF A=29 THEN GOSUB 2690 

T=14: IF A=20 THEN GOSUR 2730: GOTO 710 

IF (A<>148) OR (LEN(C$) >4) THEN 610 

GOSUB 2790: IF A=141 OR B=19 THEN 1370 
GOTO 610 


REM CAMPO OPERANDO 
REM 


750 PRINT TAR(23) 


760 
770 
780 
790 
800 
810 
820 

30 


840 T=22 


eso 


THEN PRINT: PRIN]: GOTO 910 
) AND (A<96) AND (C°14) THEN GOSUR 2540: SOTO 270 
O THEN FRINT: PRINT CHR$ (145): GOTD 750 
GOTO 750 


GOSUB 2660: IF 
ss= IF_ <A> 
IF AND A= 
Tri 60 THEN PRINT: PRINT CHR$ (145 

IF 7 THEN 390 x 

IF 3 OR B=19 THEN 370 

IF 57 THEN GOSUB 2 

IF 9 THEN GOSUR 269 

IF A=2O THEN GOSUE 0: GOTO 870 
IF (A<>148) OR (LEN(0$)>12) THEN 760 


B60 GOSUB 2790: IF A=141 DR B=19 THEN 1370 


870 
880 
890 


GOTO 760 


REM CAMPO COMMENTO 


900 REM 


910 


PRINT TAB(7);: 


920 GOSUB 2660: IF C<>1 OR A<SI60 GOTO 930 


925 
930 
940 
950 
960 
970 
980 


990 T=6: IF &=20 THEN GOSUR 2 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


T: PRINT CHR$(145)3CHE$ (145) ;CHR$(145);: GOTO 750 
60 THEN PRINT: FRINT CHR$(145) 1 
IF (BS3 <a. 2540: GOTO 1050 
7 THEN FRINT CHR$ (145 
3 OR B=19 THEN 1390 
57 THEN GOSUR 2/10 
9 THEN GOSUB 2690 
: GOTD 1050 
IF_(A< >148) OR (LEN(T$) >24) THEN 920 
GOSUB 2770 
GOSUB 2660: IF A=141 OR B=19 THEN 1580 
IF (B<42) OR (B>95) THEN 1020 


IF L$+C$+0$+T$<>"" THEN 400 
L$=R$: FRINT R 
PRINT TAB(9) 1 x 
GOSUB 2660: S$=T$: IF ((B‘32) AND (8/95)) OR A=3- 
IF B=13 OR B=19 THEN 1370 

IF A<3157 THEN 1170 


THEN 1330 


L’etichetta deve iniziare con una 
lettera e i rimanenti caratteri pos- 
sono essere lettere o cifre. La sua 
lunghezza non può superare i sei 
caratteri. Il comando è o una istru- 
zione mnemonica con l’appropriato 
suffisso di indirizzo o una direttiva 
per l’assemblatore. La lunghezza 
massima di questo campo è di cin- 
que caratteri. Il campo operando 
contiene l’operando dell’istruzione 
(se necessario) e non deve essere 
superiore a 13 caratteri. Si veda la 
descrizione dell’assembler per 
maggiori informazioni sul formato 
e la sintassi dei campi comando e 
operando. 

Il campo commento vi permette 
di inserire un commento di 25 ca- 
ratteri in ogni linea. I caratteri pos- 
sono essere alfanumerici o grafici, 
con le esclusioni sopra citate. E an- 
che possibile introdurre un’intera 
linea di commento lunga fino a 50 
caratteri invece dei quattro campi, 
battendo un asterisco come primo 
carattere della linea. 

Ogni linea sorgente viene pre- 
sentata sul video come due linee, 
con una linea vuota in mezzo per 
un puntatore. Come indicazione 
per l'input viene indicato il numero 
di linea corrente. I campi etichetta, 
comando e operando sono sulla li- 
nea superiore, ed il commento sul- 
la linea inferiore. Se la linea è di 
tutto commento, occuperà le due 
linee visualizzate. Una freccia indi- 
cherà la posizione corrente sulla li- 
nea in ogni momento in cui può es- 
sere accettato l’input. Se scegliete 
l’opzione di stampa, ogni linea ver- 
rà stampata nel momento in cui 
viene scritta sul file di output. 


Una volta scelta la funzione di 
creazione, i seguenti tasti hanno un 
effetto speciale: 
® la barra dello spazio sposta il 
puntatore sul primo carattere del 
prossimo campo; uno spazio battu- 
to in un campo commento verrà in- 
trodotto come spazio e non avrà al- 
tri effetti; 
® lo shift assieme alla barra dello 
spazio riporta il puntatore sul pri- 
mo carattere del campo attuale; se 
il puntatore è già sul primo caratte- 
re, passerà sul primo carattere del 
campo precedente; 


® il tasto RETURN introduce la 
linea corrente se valida (cioè se è 
presente un comando o se è una ri- 
ga di tutto commento). 

® lo shift assieme al tasto RE- 
TURN scarta la linea corrente, eli- 
mina il numero di linea e permette 
di ripartire con la stessa linea; 

® il tasto CLR/HOME termina il 
file sorgente scartando la linea‘cor- 
rente se è stata battuta ma non in- 
trodotta con il tasto RETURN; 

® il tasto di cursore destra/sinistra 
sposta il puntatore a sinistra e a de- 
stra entro i limiti del campo cor- 
rente: il puntatore non può essere 
spostato oltre i caratteri esistenti 
nel campo o il prossimo spazio do- 
po l’ultimo carattere; 

® il tasto INS permette di inserire 
un carattere prima del carattere 
puntato; dopo aver premuto il ta- 
sto INS deve essere introdotto un 
carattere, oppure shift e RETURN 
per scartare la linea; non si può 
usare INS per inserire più del mas- 
simo di caratteri di un campo; 

® battendo il tasto DEL si cancella 
il carattere attualmente puntato. 


Si noti che i tasti cursore su/giu e 
il tasto RVS sono ignorati. 


Editing di un file sorgente 


L’editor vi permette di corregge- 
re un file sorgente copiandolo da 
un nuovo file di output. L’editor 
terrà una copia del file sorgente 
originale, nel caso ci siano errori di 
sistema. ; 

Se scegliete l’opzione di stampa, 
ogni linea scritta nel nuovo file ver- 
rà anche stampata. Quando la pri- 
ma linea del file sorgente originale 
verrà visualizzata, scegliete il modo 
di edit desiderato tra quelli dispo- 
nibili. Alla fine del file di input ori- 
ginale, potete aggiungere linee alla 
fine del file. 

Facendo l’editing del file riga per 
riga, ogni linea viene visualizzata 
una linea alla volta e può essere 
editata come si desidera. Tutte le 
funzioni di controllo possono esse- 
re usate come descritto per la fun- 
zione di creazione del file con le 
seguenti differenze: 

@ la combinazione shift/RETURN 
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1150 
1160 
1165 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1915 
1420 
1430 
1440 
1450 
1460 
1470 
1475 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1575 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
i810 
1815 
1820 
1830 
1840 
18495 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 


IF C<532 GOTO 1170 


3160 AND Bc 
PRINT: PRINT CHR$(145);: 
SOTO 1110 
IF_(A< >148) OR fLEN(T$) 349) THEN 1280 
IFC>31THENPRINT" “sMID$(T$,C):PRINT"";TAR(70) 3" ":PRINTTAR(2) 3 MIDE (18,3 
PRINT" “sMID$(T$,C,31-C);TAB(70);" “:PRINT TAB(9) 3 1MID$ (TE, 31) 
PRINT CHR$ (145); CHR$ (145) ; CHR$ (145 
GOSUB 2660: IF A=141 OR B=19 THEN 13 
IF (B<32) OR (B>95) THEN 1250 
S$=T$: GOSUB 2750: W$=MID$(T%,C): PRINT CHR$(145);TAB(C-23) 
IF (A< >20) OR (C>LEN(T$)) THEN 1120 
IF C>31 THEN PRINT MID$(T$,C+1);" 
PRINT MID$(T%,C+1,32-C);" ":;TAB(70); 
PRINT CHR$(145);CHR$(145);CHR$ (145 
S$=T$: R$=MID$(T$,C+1): 
IF _C>50 THEN 1120 
GOSUB 2540 
IF C=32 THEN PRINT: 
T$=S$: GOTO 1120 
IF C<32 THEN PRINT: 
PRINT: PRINT: IF 41 OR B=19 THEN 1410 
IF L$="%" OR C$< >"" THEN GOSUB 2580: GOSUR 2420: BOTO 1450 
PRINT CHR$ (145) 3 CHR$ (145); CHR$ (145); CHR$(145);: GOTO 390 
PRINT CHR$ (145) 3 CHR$ (145) ; CHR$ (145) CHR$ (145) "5>%>"CHR$(17) 3 CHE$(17); 
PRINT CHR$(17): IF B< >19 THEN 1450 
IF M THEN 1610 
C$=".END": Ls= 
GoTO 2210 
IF_M<>1 THEN 1490 
GOSUB 2560: IF E THEN 1770 
SOSUB 2500: PRINT CHR$(145);CHR$(145)3CHR$(145);CHR$ (145); 
IF L$="%" THEN 1110 
GOTO 390 
IF_A<>141 THEN N=N+1 
GOTO 350 
REM = 
REM EDITO IL FI 


>17 THEN i210 
IF C>30 THEN FRINT CHR$(195) :CHES (145) 7 


GOT 1300 


ITCHRS (145) 3 TAR(C 
PRINT TAE(9) 3 MID&(T® 

CB+C); 

GOSUB 2750: T$=S$: GOTO 1120 


PRINT SPC(9); 


PRINT 


O$=L$: T$=0$: GOSUB 2430: IF M=0 THEN GOSUR 2680 


"4FL$+". BAK 
+FL$+". BAK 
IF_EN THEN 2210 
PRINT#15, "S"4DR$+":"+FL$+".SRC": 
OPEN 1,8,2,DR$+":"+FL$+".BAK 
OPEN 2,8,3,DR$+":"+FL$+".SRC,S,U": GOSUB 2440 
GOSUB 2560: IF E THEN 1770 
M=0:GOSUB2250: GOSUB2490: PRINT U$:PRINT" 
PRINT" 2 - INSERISCO RIGHE PRIMA DI QUESTA 
FRINT" 3 — COPIO DA QUESTA ALLA RIGA. 
PRINT" 4 - CANCELLO DA QUESTA ALLA RIGA 
FRINT"CHE MODO DI EDITING DESIDERI?"; 
SOSUB2610: M=V: IF V<1 OR VS4 THEN 1660 
SOSUB 2250: ON M GOTO 1470,340 
GOSUR 2500: PRINT Us: IF THEN FRINT"COPIO "; 
IF _M=4 THEN PRINT "CANCELLO 
PRINT“DA QUESTA RIGA ALLA. 
PRINT“RIGA ";N:PRINT CHR®(14 
INFUT R$: L=VAL (R$): 
SOSUB 2250: IF L<N THEN 1690 
IF M=3 THEN FRINT “STO COPI"; 
IF M=4 THEN FRINT "STO CANCELL"; 
FRINT“ANDO LE RIGHE...": PRINT: PRINT 
SOSUB 2250: PRINT“FINE DEL FILE DI 
PRINT"VUOI AGGIUNGERE ALTRE RIGHE"; 
GOSUE 2630 8 THEN M=2: 
N=Z+1: Z: 350 
PRINT: PRINT*NOME FILE OUTPUT _":CHR&(162);CHR$ (157) 3 CHR8/157) 3 CHRE CIS): 
INPUT IF_FL$=CHR$(162) THEN 184 
GOSUB DFE$+":"+FL $+".SF0,S,6": GOSUB 2440: 1F EN THEN 
GOSUE 2250: E=0: 
PRINT: PRINT"MOME FILE INPUT 
INPUT FL$: IF FL$=CHR$(152) THE 
GOSUB 2350: OPEN 1, 
GOSUB FRINT"STO COFIANDO IL 
GOSUR 2 IF E THEN 1910 
IF M<4 THEN GOSUR 2380: GOSUB 2420 
IF M AND (N=lL) THEN 
GOTO 1870 
IF _M THEN 1770 
CLOSE 1: GOSUB 2440: 
GOSUB 2680: PRINT"COFIO UN ALTRO FILE 
GOSUB 2630: IF A=78 THEN GOSUB 2420: 
GOTO 1 
REM 
REM STAMPO IL 


INFUT#15,EN 
+DR$+": "+FL$+". SRO" 


INPUT#15,EN 
R": GOSUB 24 IF EM THEN 


IF EN THEN 


EDITO RIGA FER FIGA":PRTMI 


"3CHR$ (17): 
SPC(4); 
IF R$="FINE"THEN L=1ES 


PRINT" (FINE=FINE FILE)": PRIMI 


GOTO 1880 
INPUT ORIGINALE": GOSUR 2680 


GOTO 1430 


HR (162) 1 CHES (157) CHE$ (157) 3 CHF& (15); 
1240 
 DR&+": "4FL$+".SRC,S,R": GOSUR 2490: IF EM THEN SM0 
FILE... RINT: PRINT 


GOTO 2210 


L&+".LST" 

14EL$+" 5." 
GOSUB 2250: PRINT: FRINT"STO £ PRIN 
INPUT#1,L$: GOSUB 2440: IF tI "THE sn 
IF LEFT$(L$,1)="." THEN L$=" "+MID$(L$,2) 


2210 


O REM == 


PRINT#204,L 


GOTO 2020 


REM LEGGO IL FILE 


GOSUB 2320: FL$=FL$+".SRC" 
E=0: OPEN 1,8,2,DR$+":"+FLs+" 
GOSUB 2250: IF F=5 THEN FRINT: 
GOSUB 2570: IF E THEN 2170 

IF F=4 THEN GOSUB 2500 

GOSUB 2380: GET R$: IF R$="" THEN 2110 

IF (ASC(R$)AND 127)=19 THEN PRINT U$: GOTO 2210 
GOSUB 2600: IF F=5 THEN 2100 


8,R":60SUB2440: IF EM THEN 2210 
PRINT"STO STAMPANDO Il FILE...": PRINT 


GOTO 2110 

IF F=4 THEN GOSUR 2 

REM = 

REM CHIUDO TUTTI I FILE E RIPARTO 

REM ==: 

CLOSE 1 : CLOSE 204: CLOSE 15: GOTO 80 
REM ==: = 

REM SUBROUTINE 

REM ==: = 

PRINT CHR$(147);0$(F)3: IF M=0 THEN PRINT: GOTO 2300 
PRINT" — "s: IF M=1 THEN PRINT"RIGA FER RIGA" 


IF M=2 THEN PRINT "INSERIMENTO" 

IF M=3 THEN PRINT "COPIA" 

IF M=4 THEN PRINT “CANCELLAZIONE” 

PRINT U$: RETURN 

P=1: OPEN 204,4: RETURN 

PRINT: PRINT"NOME DEL FILE "“CHR$(162);CHR$(157);CHR$ (157) CHR$ (157)3 
INPUT FL$: IF FL$=CHR$(162) THEN 2320 

FL$=LEFT$ (FL$, 12) 

PRINT: PRINT"DRIVE O 0 1: "5 

GET DR$: IF DR$<>"O"AND DR$<>"1" THEN 2360 

PRINT DR$: RETURN 

IF P=0 THEN RETURN 

PRINT# 204, SPC(6-LEN(STR$(N) 
IF L$="%" THEN PRINT# 204, "% 
PRINT#204, L$; SPC (B-LEN(L$))3C$:SPC(7-LEN(C$)) 30%; SPC(15-LEN(0$)) TE 
RETURN 

Z=241 

PRINT#2,L$5",%:0$;",":0$;",";T$;CR$; 
INPUT#15,EN$,EM$,ET$,ES$:EN=VAL (EN$): IF E 
GOSUB 2250: PRINT CHR$(18) "ERRORE DI DISCO 
PRINT EN$;" ":EM$ ,ET$;" “3ES$ 

PRINT: PRINT: GOTO 260 
V=4: IF M=2 THEN FRINT CHR$(18);CHR$(166 
PRINT RIGHT$(" "+STR$ (N) ,V) ;CHR$ (146); 
L$=L1$: C$=C1$: O0$=01$: T$=T1$: N=N1 
PRINTTAB(7);1$3 

THEN 2530 
LEFT$(T$,31);TAR(50) PRINTTAR(9) 
PRINTTAB (15) ;C$; TAR (23) ;0$:FRINT :PRINTTAB(7) 
IF C>LEN(S$) THEN S$=S$+R$: GOTO 2700 
WS=MID$(S$,C+1): GOSUR 2750: S$=S$+W$: GOTO 2700 
GOSUR 2570: Ni=N: Li$=L%: Ci O1$=0$: Ti$=1: RETURN 
INPUT#1,L$,C$,0$,T%: GOSUB 2440 


) THEN RETURN 
HR$(17) 


3: RETURN 


SRINI: RETURN 
RETURN 


IF C$=".END" THEN E=i: RETURN 

N=N+1: RETURN 

PRINT CHR$(18)" BATTI UN TASTO PER CONTINUARE DI 
GET R$: IF Rs="" THEN 2610 7 


VEVAL (R$): A=ASC(R$): B=(A AND 127): RETURN 

PRINT" (S/N): "; 

GOSUB 2610: IF A<>83 AND A<>78 THEN 2640 

PRINT R$: FRINTU$: RETURN 

PRINT CHR$(17) "©"CHR$(157);G0SUB 2610: PRINT" "CHR$ (157) :CHE$ (145) 3 
IF A=34 OR A=44 OR A=SR THEN 2660 

RETURN 

PRINT: PRINT"NUOVO FILE=";Z5 "LINEE": PRINT U$: RETURN 

IF C>LEN(S$) THEN RETURN 

C=C+1: PRINT R$;: RETURN 

IF C>1 THEN C=C-1: PRINT R&; 

RETURN 

IF C>LEN(S%) THEN RETURN 

R$=MID$(S$,C+1): \FRINT R$;" “: PRINT CHR$ (195); TAECIHC) 7 

IF C>1 THEN S$=LEFT$(S$,C-1)+R$: RETURN 

S$=R$: RETURN 

WS=MID$ (5$,C): FRINT" "Ulf; 
PRINT: FRINT CHR$ (145); TABCT+C 
GOSUB 2770 

GOSUB 2660: IF A=141 OF B=19 THEN RETUFN 
IF (A<33) OR (A395) THEN 2200 

GOSUB 2750: S$=5$+U$: GOTO 2700 


33 RETURN 


cancella la linea corrente e visualiz- 
za la prossima linea; 

® il tasto CLR/HOME visualizza 
la linea corrente e ritorna a selezio- 
nare un altro modo di edit a quel 
punto 

® l’opzione “inserire una linea pri- 
ma di quella attuale” permette di 
aggiungere nuove linee di codice 
sorgente prima della linea corren- 
te, esattamente come nella creazio- 
ne di un nuovo file. Battendo 
CLR/HOME viene visualizzata la 
linea corrente e potete selezionare 
un altro modo di edit; 

® l’opzione “copia da una linea a 
un’altra” copia alcune linee nel 
nuovo file senza cambiamenti men- 
tre ogni linea viene visualizzata ed 
eventualmente stampata. Se non 
viene introdotto alcun numero e si 
preme RETURN, solo la linea cor- 
rente verrà copiata. Battendo la 
parola FINE, il file di input verrà 
copiato fino alla fine; 

® l’opzione “cancella da una linea 
a un’altra” è simile all’opzione di 
copia eccetto che cancella le linee e 
visualizza quelle rimanenti. 


Copia di file sorgente 


Questa funzione dell’editor co- 
pia un file sorgente già esistente. 
Ogni linea viene visualizzata ed 
eventualmente stampata. File mul- 
tipli si possono copiare e concate- 
nare in un nuovo file sorgente. A_ 
la fine di ogni file copiato, il nume- 
ro totale di linee nel nuovo file vie- 
ne visualizzato. 


Leggere e stampare un file sorgente 


Questa funzione legge un file 
sorgente esistente e visualizza e/o 
stampa ogni linea al momento del- 
la lettura. Battendo un tasto eccet- 
to CLR/HOME o RUN/STOP la 
funzione alternativamente si ferma 
e riparte permettendovi di esami- 
nare le varie sezioni. Battendo 
CLR/HOME la funzione termina, 
il file di input viene chiuso e si ri- 
torna al menu principale. Se non 
state usando una stampante Com- 
modore probabilmente dovete mo- 
dificare la routine di stampa affin- 
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ché funzioni adeguatamente. Se 


O REM KXk5xtx* ** DASM ASSEMBLER | 
39 Ren TERESA AS Hd ARR non usate una stampante, rispon- 
Sonne sian ; dete N (no) alla domanda sulla 


50. REM POBOORODOONOVORO UO UOVO OO VO OOC CONO 

80 PRINT CHR$(147);SFC(6);CHR3(18) "D A 8 SE MRI E FE": PRINT: FETI 
90 CLR: CR$=CHR$(13 
100 SZ=100: DIM S$(SZ),V(SZ) 

110 PRINT: PRINT"NOME DEL FILE “CHE$(162) CHF 
111 INPUT FL$ 

120 IF FL$=CHR$(162) THEN 110 
130 PRINT: PRINT"DRIVE 0 0 1: 
140 GET DRS: IF DRs<>"0" AND DI "1" THEN 140 
150 PRINT DR%: FLS=LEFT$(FL$,12): OFEN 15,2,15 
160 PRINT#15,"S"+":"+FLS$: INFUT#15,EM 

170 GOSUE 1490 

180 OPEN 2,8,3,DR$+":"+FL$+",P,U": GOSUR 1510 
190 PRINT: PRINT“DEVO LISTARE SUL DISCO (D)" 
200 GET FRS: IF PRS<>"D" AND PR&<>"S" THEN 2 
210 PRINT PR$: IF PRS‘>"S" GOTO 220 

215 OPEN 204,4: LES=i (13) +CHR$ (10): LS$=" ": GOTO 270 

220 PRINT#1S, "S"+DR$+":"+FLs+".LST": INPUT#15,EM 

230 OPEN 204,8,4,DR$+":"+FL$+".LST,S,0": GOSUR 1510: LES=UCHR$ (12: 165="," 
240 REM = 

250 REM PRIMO PASSAGGIO, GENERO LA TAVOLA DEI SIMBOLI 
260 REM 
270 PRINTCHR$(147) “PRIMO PASSO — DEFINIZIONE DEI SIMBOLI": PRINT: PEIMI 
280 GOSUB 1500: IF L$<"A" THEN 350 

290 FRINT L8, 

300 IF S<>SZ AND FRE(0)>=100 GOTO 310 

305 PRINT CHR$(18) "OVERFLOW DELLA TAVOLA DEI SIMBOLI": GOTI 440 

ZIO S=S+1: S$(S) 
320 GOSUB 1160: 
330 GOTO 280 
340 V(S)=F 

350 IF Cs>"9a" THEN GOSUB 1100: GOTO 280 
360 IF C$<>"%=" THEN 410 

370 IF P>O THEN 280 

380 GOSUB 1160: IF N>-1 THEN P=N 

390 IF L$<>"" THEN V(S)=P 

400 GOTO 220 

410 ÎF C$ 
420 IF C: 
430 IF C$< 
440 CLOSE 1 
450 REM 
460 REM SECONDO PASSA! 
470 REM 
480 PRINTCHI SECONDO PASSO — LISTA/OSGETTO" 
490 L=0: PS=0;: EN=0: M$="..... 

500 PRINT#204, "LOC OGGETTO LINEA"; 
510 PRINT#204, "CODICE SI 
520 PRINT#204,LS8;" " 


stampante all’inizio dell’editor. In 
questo modo, tutta la stampa viene 
automaticamente eliminata. 


)CHR$ (157) CHRS CIS 


Stampa di file di listati 


Questa funzione semplicemente 
stampa il listato salvato su disco 
prendendolo da disco e stampan- 
dolo su stampante. 


PRINT"O SULLA STAMPANTE (Ss "3 


Assembler 


Il programma assembler (listato 
2) è un semplice assembler a due 
passi che legge il file sorgente ge- 
nerato dal programma editor e ge- 
nera un file programma standard 
su disco. E anche prevista una 
stampa della lista di assemblaggio 
completa con una tavola dei simbo- 
li che può opzionalmente venir sal- 
vata su disco. 

Durante il primo passo, l’assem- 
bler costruisce la tavola dei simboli 
definendo ogni etichetta e calco- 
landone il valore. I simboli sono vi- 
sualizzati man mano che sono defi- 


BY" THEN P=P+1 
+ ADR" THEN P=P+2 
END" THEN 280 


83M; 
ENTE "3 M$3M®3M$;" <DASM VE.O>" LES; 


: GOSUR 1 L=L+1: NS=STRS(L): IF L8="" THEN S40 niti per darvi la sensazione di come 
at ERINIS 208: FsSEE OSE Nei + "iT&;LE&;: GOTO Sso procede il primo passo. La tavola 
ta 5 
SA TE a 6 THENLSZO : dei simboli è attualmente limitata a 
Co ATI Si i a fol È 
580 IF FF>0 THEN E=E+4: GOTO 900 100 simboli. Questo limite può es- 
590 GOSUB 11650: IF N<0O THEN E=E+2: GOTO 500 H ‘fi H 
Ei ee sere cambiato modificando il valo- 
610 GOSUR 620: GOTO 770 re di SZ nella linea 100. Se viene 
620 P1=INT(PS/256): PRINT#2,CHR$(PS-(P1£2565))} 


PESI: RETUFEN 


aa raggiunto il limite della tavola, op- 


IF C 


ADR THEN PSE 2-EYTE ADR COSTANTE pure la memoria libera è meno di 
660 E=E+4: GOTO 900 100 Byte, verrà visualizzato un 
670 PE: GOSUB i I$=MID$(1$,5): IF FR=0O THEN E=E+4: 6010 200 


messaggio d’errore e il primo passo 
terminerà. 

Se si verifica un errore di I/0 nel- 
la lettura del file di input, verrà vi- 
sualizzato un messaggio di errore. 


680 AS=LEFT$(A$+" ",2) 
690 IF LEFT$(I$,2)=A$ THEN 720 
THEN 590 


: GOSUB 14450: Hs=H2 
GOTO 1440 
RM -128 THEN E 


64% IE PE=I THEN "75 


+16: GOTD 1480 


750 N1=INT(N/256) GOSUR 1460: GOSUB 1920: RerbaeHze se » È rca 

750 IF F-PS2S OR C$=". ADF GOEUE' dazio ResBRg i II L’assemblaggio terminerà dopo 
770 N=PS: GOSUB 1450: FRINT#204,14%5 i i Di 

780 PRINT#204," "Bs: SPOC1A-LENCES) -LENCNS)) N85" "gl #5 GPOIR-I ENG ogni errore di questo tipo. 


790 PRINT#204, SPC (7-LEN(C8)) ci 
B00 REM 
REM FLAG 
O REM 
830 PRINT#204, "XKXX 
840 IF (E AND 2) 

850 IF (E AND 4) 

860 IF (E AND 8) 

870 IF (E AND 16) 
880 EN=EN+1: GOTO S30 
890 GOSUB 1160: IF N<0 THEN EcE42 
900 PRINT#204,L5% 
910 REM 
915 REM 
920 REM 


0%: SPCCIS-LENLO8 ) TE: 


IF ECO THEN S3o Durante il secondo passo, il file 
sorgente è nuovamente letto, men- 
tre il file programma viene scritto 
su disco. E possibile produrre su 
disco o stampare un listato dell’as- 
semblaggio. Il file programma pro- 
dotto può poi essere caricato nel 
PET/CBM come ogni altro pro- 
gramma, perché usa il formato 
standard dei file PET/CBM. Tutta- 


via, proprio per questo, il file deve 


OFERANDO" 


MODIL DI INDIFRI?ZANENTO” 
SALTO” 


AMFO LA TAVOLA DEI € 
i IL SOMMARIO DEGLI 
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essere in un unico blocco contiguo, 
senza “buchi”. 

La lista prodotta dall’assembler 
indicherà le locazioni di memoria e 
il codice oggetto in esadecimale, i 
numeri di linea del file sorgente e 
le linee originali del file sorgente 
(etichetta, comando, operando e 
commento). I numeri di linea cor- 
rispondono direttamente con i nu- 
meri di linea visualizzati dall’editor 
nell’editing del file sorgente. Que- 
sti numeri quindi possono essere 
usati per localizzare velocemente 
specifiche linee. 

L’assembler si aspetta di trovare 
il formato di ogni linea di codice 
con quattro campi: una etichetta 
opzionale, un comando obbligato- 
rio, un operando opzionale ed un 
commento. In alternativa, una li- 
nea può essere tutto commento se 
il primo carattere è un asterisco. 

Le etichette possono avere da 
uno a sei caratteri. Il primo carat- 
tere deve essere una lettera, gli al- 
tri possono essere cifre o lettere. Il 
valore di una etichetta sarà l’indi- 
rizzo del prossimo byte di memoria 
definito dal comando o il valore as- 
segnato all’etichetta mediante una 
direttiva. Tutti i valori delle eti- 
chette sono calcolati come valori a 
16 bit senza segno e mantenuti co- 
me tali nella tavola dei simboli. Se 
una etichetta è definita due volte, 
verrà usata la prima definizione a 
tutte le definizioni doppie saranno 
indicate nella tavola dei simboli. 
Questi errori vengono conteggiati 
e, assieme agli altri, riportati alla 
fine dell’assemblaggio. 

Il comando deve consistere di 
una istruzione mriemonica seguita 
da un indirizzo appropriato o da 
una direttiva. Le istruzioni mne- 
moniche sono quelle standard usa- 
te dalla MOS Technology. Per ac- 
celerare la velocità di assemblag- 
gio, alle istruzioni mnemoniche è 
aggiunto un indirizzo invece di es- 
sere codificato nell’operando. 

La lista seguente riporta i suffissi 
usati per ogni modalità di indirizza- 
mento: 


blank assoluto, implicito o relativo 
A accumulatore 

# immediato 

@ indiretto 


940 IF S=0 THEN 1040 

950 FOR X=1 TO S: PRINT#204,LS%;" ": NEXT 

960 PRINT#204, "SIMBOLO ESAZVALOFE-DECIMALE" 
970 Bs="":S$(0)="_": FOR E=1i TO S: pFOR 13 
980 NEXT 

990 IF R$ >S$(P) THEN 1010 

1000 PRINT#204, ‘GX DEFINIZIONE MULTIFI 
1010 TRS (N): GOSUB 1460: 6 (P) 
1020 4,B$3 SPC (11-LEN(B$)) 3% 

1030 S$(P)="_": NEXT 

1040 PRINT#204,LS$" ": PRINT#204,EN;" ERRORI" 
1050 IF PR$="D" THEN FRINT#204,".EN 

1050 PRINT"ASSEMBLAGGIO COMPLETO, 1 "ERROR]": GOTO 1550 
1070 REM 

1080 REM X*X% SUBROUTINE NIDIFICATEX4% 

1090 REM 

1100 M$=LEI 1 A$=MID$ (C$,4) 

1110 RESTORE: FOR N=1 TO IF_M$ 
1120 

1130 

1140 

1150 RETURN 

1160 M$=0$: FOR X=1 TO LEN(0$): Is$=MID$(08,X,1) 
1170 IF Is="+" OR I i 7" THEN 1190 
1180 NEXT: GOSUE 13 RETURN 

1190 AS=MID$ (MS, X+1) 

1200 THEN O$=LEFT$ (M$,X-1): GOSUR 1300: 
1210 0$=A$: GOSUR 136 ENZO THEN 1290 
1220 +" THEN N +1 

1230 1-N 

1240 NT (N1/NM): IF LEFT&(M$8,1) 
1250 

1260 IF NCO THEN N=N+655536: GOTO 1260 

1270 IF N>65535 THEN N=N-65536: GOTO 1270 

1280 RETURN 


1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1700 
1710 
1720 
1730 

1740 
1750 

1760 
1770 

1780 
1790 
1200 

1810 

1820 
1850 

1840 
1850 

1860 
1870 

1880 

1890 

1900 

1910 


o N=0 
O Hs="": FOR X 


O OPEN 1,9,2,DR$+":"+FL$+".SRC, 


GOTO 1370 
IF_0$<"A" THEN 
FOR Xx=0 TO S 
NEXT: GOTO 1370 
IF LEFT$(0$,1)< >"s" THEN 1380 

-0: FOR X=2 TO 6: H$=MID$(08,X,1): IF Hs="" 
VAL (H8): IF X1 OR H$="O" THEN N=NX15+X 
ASC (H$) » 

: RETURN 
NT (VAL (D$) ) = 
O$="%" THEN 
LEFT$(0$,1)=" 


IF_S$(X)}=0$ THEN N=4(X): RETURN 


IF NOR 0s="0" 
: RETURN 
AND LENCO$) 


THEN RETURN 


IF FF=0O THEN GOSUB 620 
PRINT#2, CHR$ (N) 3: RETURN 
IF C$>"9" THEN X1=PS+1 
FOR X=1 TO F-Yi: E 


TO O STEP-1: 
IF X1>9 THEN Xi=X1+7 
H$=H$+CHR$ (X1+48): NEXT: 


XISINT NZ (160X)): 


H1S=LEFT&(H$,2): H2 
sE": GOTO 1510 


INFUT#1,L$,C$,0%,T$ 
INPUT#15,EN$,EM$,ET$,ES$: 


PRINT EN$;" "EM$,ET$;" ":ES$ 
PRINT: PRINT: PRINTCHR$(18)"£ 
CLOSE 204: Ci 
REM 
REM *X* TAVOLA DEI DATI DELLE ISTI 
REM 


E 15: END 


REM CONTIENE Sé DATI, 1 

REM OGNI DATO CONSISTE DI: 

REM 3 CARATTERI MNEMONICI 

REM 1 CIFRA LUNGHEZZA ISTRUZIONE 

REM ESTENSIONI MULTIPLE DI S CARATTERI 
REM FER OGNI MODO DI INDIRIZZAMENTO: 
REM 2 CARATTERI SUFFISSO MNEMONICO 
REM 3 CIFRE VALORE CODICE MFERATIVO 


REM LA TAVOLA TERMINA CON UN DATO NULLO 
DATA “ADCI# 105 1097 ZOYA L3ZZX117X 125Y 
DATA "ANDI# 041 0457 AYOISZXOSTX Né 


DATA "ASL3 


0142 0066 X 030", "RCC2 
DATA “BEO2 240", "RIT3 0447 036", "AMI? 048", 
DATA "BRKi 000%, "RVC? ORO", “BUSI 112", "CL 
DATA LVi 184” 

DATA “ 1979X1939Y2097 

DATA 2362 

DATA DO6Z 198ZX21AX 

DATA 


DATA 
DATA 
DATA 


0768 
169 


DATA 162 1747 £ 

DATA 0782 OZ0A O74ZXORAY | 

DATA "ORA3H 009 0137 005AX001AYOI77YO21Y 
DATA "FHP1 008", "PLA) 104% “FLEJ 040", 
DATA 1102 102A I067X1 18% 106", "RETI 
DATA OSOVAZA XA: 
DATA 


"STAT 1917 
DATA 3 


DATA | 


PRINT#ZO4A,LSE" 
TO) SF 1581) 


ENZEMN+13 


(19-LEN(08)) 3 OE 


>LEFT$(I%,3) THEN NEXT: 


IF_NCO 


THEN RETURN 


IF X1>64 AND X1<71 THEN N=N%16+(X1-55)» NEYI 


1 THEN N=ASC(MID%(08,2)): RETURN 


$+"00 ": GOSUB 1420: NI 
(X1R180%)) 


RIGHTS (H#,2)s 


IF_ENS="00"THEN RETURN 
PRINT: CHR$(147)CHR$(18) "ERRORE .DI DISCO": PRINT 


SEMBLAGGIO INTERROTTO": PRIN: PRIMI 


Z paginazero 

X . assoluto con registro X 

Y. assoluto con registro Y 
indiretto con registro X 
indiretto con registro Y 
pagina zero con registro X 
pagina zero con registro Y 


Solo quattro le direttive sono di- 
sponibili, principalmente per ab- 
breviare i tempi di assemblaggio. 
Esse sono: 
® .ADR n, che definisce un indi- 
rizzo costante da due byte nel for- 
mato standard; otto bit meno signi- 
ficativi, otto bit più significativi. 
®© .BY n, che definisce una costan- 
te da un byte di valore n; se n è 
maggiore di 255 il byte conterrà gli 
otto bit meno significativi (un byte) 
del valore binario specificato. 
® LABEL=n, definisce una eti- 
chetta simbolica con valore n. Il 
valore n deve essere stato definito 
in precedenza nel primo passo del- 
l’assemblaggio. 

®© *=n, posiziona il contatore di 
programma (program counter) al 
valore indicato, come numero a 16 
bit; se è specificata una etichetta, 
le viene assegnato lo stesso valore 
di n, il primo byte della nuova area 
di memoria. Il valore di n deve es- 
sere stato precedentemente defini- 
to nel primo passo. Questo cambio 
deve essere usato prima di assem- 
blare ogni istruzione, se viene usa- 
to. Questo perché il file program- 
ma prodotto deve essere in un 
blocco contiguo con un indirizzo di 


partenza ben noto. Se non viene 
specificato è zero. 

Gli operandi con istruzioni e con 
direttive di assembler possono es- 
sere specificati in un certo numero 
di formati, indicati nella tavola 1. 
Inoltre, per ogni valore delle 
espressioni di tavola 2 sono am- 
messi tre operatori che utilizzano 
uno dei formati detti (decimale, 
esadecimale, ecc). 

Tutti gli operandi sono calcolati 
come quantità a 16 bit. Se un co- 
mando richiede solo otto bit (come 
una istruzione di caricamento im- 
mediato dell’accumulatore) verran- 
no usati solo gli otto bit meno si- 
gnificativi. 

Il commento in una linea di 
istruzione può essere lungo fino a 
25 caratteri, e si possono usare tut- 
ti i caratteri (ecetto quelli già men- 
zionati. Una linea di solo commen- 
to può essere lunga fino a 50 carat- 
teri. 

Ogni errore di assemblaggio vie- 
ne indicato nella lista stampata me- 
diante una linea che indica il cam- 
po errato. Alla fine dell’assemblag- 
gio, viene indicato il numero totale 
di errori. Inoltre, viene stampata 
una tavola dei simboli in ordine al- 
fabetico, con il valore di ogni sim- 
bolo in esadecimale e in decimale. 


Consigli 


Questi sono alcuni consigli per 
un uso efficiente dell’assemblatore. 


® Separate i programmi più grandi 
in sezioni logiche più piccole, che 
possano essere testate e assemblate 
direttamente. Ciò permetterà un 
lavoro più veloce. 

© Definite i simboli più comuni, le 
costanti e le memorie di lavoro al- 
l’inizio di ogni programma. I sim- 
boli e le etichette sono introdotte 
nella tavola dei simboli nell’ordine 
definito e ricercate sequenzialmen- 
te nello stesso ordine. 

® Usate etichette corte, se volete 
che ce ne stiano molte nella tavola. 
® Controllate l’uso e la lunghezza 
dei commenti, perché possono au- 
mentare di molto il tempo di lettu- 
ra del file sorgente durante l’edi- 
ting e l'assemblaggio. 

® Ricordate che i numeri di linea 
nel listato dell’assemblatore e nel 
listato del file sorgente corrispon- 
dono direttamente con i numeri di 
linea visualizzati dall’editor nell’e- 
ditare un file sorgente. Possono 
quindi essere usati per localizzare 
velocemente linee specifiche. 

© I nomi dei file possono essere 
lunghi al max 12 caratteri. Viene 
aggiunto un suffisso di quattro ca- 
ratteri per identificare il tipo di fi- 
le: 


.SRC file sorgente 

.BAK file copia creato automatica- 
mente 

.LST file listato salvato su disco 


Il nome del file finale generato 
dall’assemblatore non ha suffissi. 


Risparmiate tempo! 


Per evitare i fastidi e gli errori di una lunga battitura è dispo- 
nibile un dischetto (per drive 2040, 3040 e 4040) contenen- 
te i due programmi descritti in questo articolo già registrati e 


verificati. 


Lo potete ricevere contrassegno compilando questa cedola 
e pagando al postino 40.000 lire, iva, imballo e spese di spe- 


dizione comprese. 


IN 


E un servizio di Personal Software 


Indirizzare in busta chiusa a 
PERSONAL SOFTWARE, Via Rosellini 12 
20124 MILANO 


Cognome e nome 


Indirizzo 


Cap, località 


Inviatemi il disco con l'assemblatore per il 
PET/CBM pubblicato nel numero 2 di Per- 
sonal Software. 

Pagherò al postino 40.000 lire. 
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Come farsi umiliare da un computer 


Carlo Sintini 


mero arbitrario di stecchini o di fiammiferi 

su tre righe (si può giocare anche con un 
numero maggiore di righe), e poi due giocatori 
a turno tolgono quanti fiammiferi vogliono, 
purché tutti appartenenti ad una stessa riga. 
Vince il giocatore che riesce a togliere l’ultimo 
fiammifero. 

Il gioco fu lanciato da un vecchio film di suc- 
cesso (L’anno scorso a Marienbad di Alain Re- 
snais) e qualche anno fa fu rispolverato da Mar- 
tin Gardner (si veda il primo volume di Enigmi 
e giochi matematici Sansoni). Anche io me ne 
sono occupato in Quiz e giochi matematici 
(Longanesi) per ideare un computer realizzato 
con scatole di cerini che “impara” a giocare al 
NIM. 

Il prof. Bouton dell’Università di Harvard 
scoprì una straordinaria strategia vincente per 
questo gioco, che rende imbattibile il giocatore 
che effettua la prima mossa, e quasi imbattibile 
(se il suo avversario non conosce la strategia 
vincente) il giocatore che muove per secondo. 

Il numero di fiammiferi contenuto in ciascu- 
na riga deve essere trasformato in forma bina- 
ria, i tre numeri binari devono essere incolon- 
nati, e se la somma delle cifre di ogni colonna è 
zero o pari, la posizione è sicura (cioè garanti- 
sce la vincita a chi l’ha giocata) altrimenti è in- 
sicura. 

Per esempio la posizione con 5, 6 e 7 fiammi- 
feri è insicura perché 


I gioco del NIM consiste nel disporre un nu- 


5 = 101, 
6 = 110, 
7= 111, 


e la somma della prima colonna è 3, che è di- 
spari. 

Invece la posizione con 5, 2 e 7 fiammiferi è 
sicura perché 


5 = 101, 
TE 1Ò 
7= 115 


e sommando le colonne non si ottiene mai un 
risultato dispari. 
Quindi per vincere al NIM è sufficiente fare 


AVVERTENZA IMPORTANTE I: [ ore Ir e di impe 


i nput La € tta sequer 
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in modo che dopo ogni propria mossa, la posi- 
zione sia sicura. Ne deriva che il primo a muo- 
vere, se gioca correttamente, ha la certezza di 
vincere. 

Nel programma che vi propongo (realizzato 
per un PET ma facilmente adattabile a qualun- 
que personal) potrete giocare al NIM contro il 
calcolatore: esso sarà imbattibile se muoverà 
per primo, e duro da battere se giocherà per 


Spiegazione delle principali routine 


1000-1050 Subroutine per stampare il tabellone 
di gioco 

2000-2090 Subroutine per stabilire se la mossa 
del computer è sicura. In 2010 il nu- 
mero di fiammiferi di ciascuna riga 
viene trasformato in un numero bina- 
rio (sfruttando le DATA finali). Suc- 
cessivamente vengono effettuate le 
somme per colonne (aggiungendo uno 
zero iniziale per portare a 4 cifre il nu- 
mero binario e renderlo compatibile 
con le DATA) e se i risultati sono tutti 
pari, la variabile F viene posta uguale 
‘a zero, mentre in caso contrario viene 
posta uguale ad uno. 

3000-3130 Subroutine per l’esecuzione della mos- 
sa del computer. Le variabili A(K) 
rappresentano il numero di fiammiferi 
per ciascuna riga. In 3010 esse vengo- 
no trasformate in B(K) allo scopo di 


poter variare il loro valore nell’analisi 
della mossa, senza che le A(K) perda- 
no il loro valore originario. Nelle linee 
3020-3060 vengono tolti uno alla volta 
i fiammiferi dalle righe (operando sul- 
le B(K)), ed ogni volta con la subrou- 
tine 2000 si controlla se la mossa è si- 
cura. In caso affermativo (F=0) la 
mossa viene eseguita alla linea 3045, 
altrimenti alle righe 3090-3100 viene 
eseguita una mossa a caso tra quelle 
possibili. 

4000-4050 Subroutine contenente il test per stabi- 
lire dopo ogni mossa (del giocatore o 
del calcolatore) qual’è il numero mas- 
simo di fiammiferi contenuti nel tabel- 
lone (M) e su quale riga (W) si trova- 
no. Il test serve anche per stabilire 


quando il gioco è finito (M=0). 


Jinazione successione de colo « Com 


AQ UILIDIDIADINIADIITINITIDIORITIDEBIABIDI ORI RINI DINA TRIRI DR IRI RIDE TARRA IRd ERA DALIA RIRA DA OKI VERDI ORIRRORI RO nETRA RENI NRDRBRa Da RRnRInanan na 


secondo contro un avversario che 
non conosca la strategia vincente. 
Nel riquadro sono spiegate le 
routine principali. Il resto del pro- 
gramma è abbastanza chiaro e non 
ha bisogno di particolari spiegazio- 
ni. Le linee 220-230 servono per 
fermare il programma dopo che il 
giocatore ha eseguito la propria 
mossa, per evitare che il computer 
esegua immediatamente la sua. 
Tutto il programma sfrutta l’i- 
struzione GET invece della IN- 
PUT, per evitare di premere il ta- 


sto RETURN dopo ogni battuta. 
Ciò però comporta la limitazione 
di 9 fiammiferi al massimo per cia- 
scuna riga. Se volete aumentare il 
numero, basta sostituire la 120 con 


120 INPUT A$(K) 


ed eliminare lo spazio vuoto dopo 
la I nella stringa alla linea 1030, 
per infittire i fiammiferi e permet- 
tere loro di essere tutti contenuti in 
una sola linea. 

Se volete usare più di 15 fiammi- 
feri per riga occorre però aggiunge- 


re altre DATA e ribattere quelle 
esistenti con cinque cifre invece di 
quattro. 

Infine, se volete portare a quat- 
tro le linee del tabellone, ricorda- 
tevi di modificare la linea 2030 con 


2030 FOR T=1 TO 4: BB$(K) = 
= MID$(B$(T), K, 1) : NEXT 


e aggiungere alla linea 2080 AND 
S <> 14. Oltre, ovviamente a por- 
tare tutti i cicli FOR...NEXT da 3 
a 4. Buon divertimento. 


10 REM: 
20 CLR: 
30 PRINT TAB(14) "GIOCO DEL NIM" 


CARLO SINTINI 
PRINT CHR$ (147) 


40 FOR K=1 TO 40: PRINT"-";: 


50 PRINT"ORA DISPORREMO DEI FIAMMIFERI SU" 
60 PRINT"TRE RIGHE." 


70 PRINT"CIASCUNO DI NDI POTRA? TOGLIERE": 1038 
80 PRINT"QUANTI FIAMMIFERI VUOLE, MA DA UNA" 1040 PRINT: NEXT K 
90 PRINT"SDLA RIGA. VINCERA? CHI TOGLIE" 1050 TO 40 
95 PRINT"L’*ULTIMO FIAMMIFERO. " 1055 PRINT"-"; 
100 FOR K=1 TO 40: PRINT"-"; a NEXT K 1058 NEXT K: RETURN 
105 FOR K=1 TO 3 2000 REM: ANALISI SICUREZZA DELLA MOSSA 
110 PRINT"QUANTI FIAMMIFERI SULLA"K"?® RIGA? "; 2010 O: FOR Kk=1 TO FOR J=0 TO B(K) 
120 GET A$(K): IF A$(K)="" THEN 120 2015 READ B$(K): NEXT RESTORE: NEXT K 
130 ACK)=VALC(ASCK)) 2020 FOR Kk=1 TO 4: S=0 
140 IF AtK)<=0 THEN 120 2030 BE$(K)="0"+MID${(B$(1),K,1)+MID$(B$(2),k,1) 
145 FRINT A$(K) 2035 BR$(K)=EB$(K)+MID$(B$(3),ky1) 
150 NEXT K 2040 READ C$ 
155 GOSUB 1000 2050 IF BR$(K)=C$ THEN RESTORE: GOTO 2070 
160 FRINT"OK -— VUDI COMINCIARE PER PRIMO? "; 2060 GOTO 2040 
170 GET R$:IF R$="" THEN 170 2070 FOR J=1 TO 4: S(J)=VAL(MID$(C$,J,1)) 
2075 S=S+S(J): NEXT J 
2080 IF S=0 OR S=2 OR S=4 OR S=6 GOTO 2090 

O 2085 IF S=8 OR S=10 OR S=12 GOTO 2090 
200 GOTO 170 2088 F=1: RETURN 
210 REM: MUOVE IL PET 2090 NEXT K: F=0: RETURN 
220 FRINT"POSSO MUOVERE? "; 3000 REM: DECISIONE E MOSSA 
230 GET R$: IF >"S" THEN 230 3010 FOR k=1 TO B(K)=A(K)s NEXT K 
235 PRINT R$ 3020 Y=1i 
240 GOSUB 3000 3030 IF B(Y)=0 THEN B(Y)=A(Y): GOTO 3050 
250 REM: MUOVE IL GIOCATORE 3040 B(Y)=B(Y)-1: GOSUB 2000 
260 PRINT"VUDI TOGLIERE DALLA RIGA 1, 2 0 3? "; 3042 IF F<>0 GOTO zo3o 
270 GET R$: IF R$="" THEN 270 3045 FOR K=1 TO 33 A(K)=E(K)s NEXT K 
275 PRINT R$ 3048 GOTO 3iio 
280 R=VAL (R$) 3050 IF Y=3 GOTO 3070 
290 IF R<1 OR R>3 THEN 270 3060 Y=Y+1: GOTO 3ozo 
310 PRINT"QUANTI FIAMMIFERI? "; 3070 GOSUB 4000 
320 GET R$: IF R$="" THEN 320 3090 X=INT(MXRND(1)+1) 
325 PRINT R$ 3100 A(W)=M-x 
330 IF ACR)-VAL(R$)<O THEN GOSUB 1000: GOTD 260 3110 GOSUR 1000: GOSUB 4000 
340 A(R)=A(R)-VAL (R$) 3120 IF M<>O THEN RETURN 
350 GOSUR 4000 3130 PRINT"HO VINTO IO!": GOTO 500 
360 IF M=0 THEN PRINT"HAI VINTO TU!": GOTO 500 4000 REM: RICERCA NUM. MAX PER RIGA 
370 GOSUB 1000 4005 M=0: W=0 
380 GOTO 210 4010 FOR H=1 TO 
500 REM: RICHIESTA DI PROSEGUIMENTO 4015 IF AC(H)>M THEN M=A(H)s W=Wéri 
510 PRINT"VUODI GIOCARE ANCORA?" 4020 NEXT H 

O IF R$="" THEN 520 4030 RETURN 

" THEN 10 4050 REM: NUM.MAX=M, SULLA RIGA W 

540 PRINT"CIAD!": END 5000 DATA 0000, 0001,0010, 0011, 0100, 0101, ODIO, Oil 
1000 REM: STAMPA TABELLONE 5010 DATA 1000, 1001, 1010, 1011, 1100, 1101, 1110, iii1 


NEXT K 


1010 
1015 
1017 
1020 
1030 
1035 


FOR K=1 TO 
PRINT K"? 


PRINT CHR$(147) 


RIGA"; 

IF ACK)=0 GOTO 1040 
FOR J=1 TO ACK) 
PRINT TAB(15) "I "; 
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SOFT 


PROGRAMMI PER IL SINCLAIR ZX81 


Tutti i programmi sottoelencati sono registrati su cassetta. 
Se non è specificata la dicitura "1K", necessitano dell'espansione di memoria. 


Sono marcate con asterisco le cassette che possono essere usate anche sullo ZXB0 con ROM BK 


CODICE NOME E DESCRIZIONE 


TF/0100-01 * SEI GIOCHI IN INGLESE (1K) 

ORBIT - SNIPER - METEORS - LIFE 

WOLF PACK - GOLF 

GIOCHI EDUCATIVI IN INGLESE 

MATEMATICA - OPERAZIONI FRAZIONI 

DIVERSI GRADI DI DIFFICOLTA" 

* PROGRAMMI GESTIONALI IN INGLESE 

AGENDA TELEFONICA - FINANZA PERSONALE - BLOCK NOTES 
* SEI GIOCHI IN INGLESE 

LUNAR LANDING - TWENTY ONE - COMBAT 

SUB STRIKE - COBE BREAKER - MAYDAY 

* GIOCHI EDUCATIVI IN INGLESE (1K) 

OPERAZIONI ELEMENTARI PER BAMBINI 

CON QUATTRO GRADI DI DIFFICOLTA" 

SCACCHI IN INGLESE 

SI GIOCA CONTRO IL CALCOLATORE 

CON DIVERSI GRADI DI DIFFICOLTA" 

* VU-CALC IN INGLESE 

POTENTE STRUMENTO DI CALCOLO ADATTO 

A RISOLVERE DIVERSI PROBLEMI 

FANTASY GAMES IN INGLESE 

GIOCHI DI FANTASIA PER TUTTI | GUSTI 

* GIOCO SCACCHI 

QUATTRO LIVELLI DIFFICOLTA' - LIBERTA" 

DI DISPOSIZIONE PEZZI - SOLUZIONE PROBLEMI 
VISIZXCALC 

POTENTE STRUMENTO DI CALCOLO ADATTO 

A RISOLVERE DIVERSI PROBLEMI 

UNDICI GIOCHI (1K) 

DIVERTIMENTO È BUONI ESEMPI DI PROGRAMMAZIONE 
IN BASIC E LINGUAGGIO MACCHINA 

LABIRINTO TRIDIMENSIONALE 

DIVERSI LIVELLI DI DIFFICOLTA” 

PROGRAMMAZIONE DI ALTO LIVELLO CON GRAFICA OTTIMA 
TRE GIOCHI SPECIAL (1K) 

USATE IL SINCLAIR COME UN ORGANO 

VEDETE I BATTERI CHE SI RIPRODUCONO 

* GESTIONE PICCOLI ARCHIVI 

GESTIONE COMPLETA DI PICCOLI ARCHIVI 

* SIMULATORE CUBÒ MAGICO TRIDIMENSIONALE 

PER GLI APPASSIONATI DEL CUBO 

MENO FATICOSO DEL CUBO REALE 

* RISOLUTORE CUBO MAGICO 

PER RISOLVERE IL CUBO IN POCO PIU' DI UN MINUTO 
“DEFENDER 

UN PO' DI BRIVIDO CON IL SINCLAIR 

VELOCITA’ ECCEZIONALE 

STAR-TREK 

MISSIONE GALATTICA CON IMPREVISTI 

ED EMOZIONI. QUATTRO LIVELLI DIFFICOLTA 
CENTIPEDE 

PROVATE A DISTRUGGERE IL BRUCO CHE SI 

DIVIDE SE LO COLPITE - BRAVO CHI CI RIESCE! 
ASTEROIDI 

UN BUON PASSATEMPO PER VOI E PER | VOSTRI AMICI 
TIRANNOSAURO 

PER CHI SI ANNOIA COL LABIRINTO - GRAFICA 
DINAMICA E TERRORE 

ZUC 

GIOCO AFFASCINANTE PER UNO O DUE GIOCATORI 
NON USATELO TROPPO! 

* SETTE GIOCHI 

BIORITMO - 21 - CONTO ALLA ROVESCIA - HAMMURABI 
ROULETE 

RUSSA - FUGA DAL CASTELLI - METEORITI 

* SETTE GIOCHI 

MASTER-MIND - ORBITA - GOLF - BOMBARDAMENTO 
LANCIA MINE - SOS SOS - CAMMELLO 

* SETTE GIOCHI 

ALLUNAGGIO - SLALOM - CACCIA SOTTOMARINA - ALIENI 
TIRO RAPIDO - ATTACCO MARZIANO - LA GRANDE RAPINA 
* SETTE GIOCHI 

SUPER AVVENTURA - SOLITARIO - REVERSE - LABIRINTO 
ABBATTI IL MURO - GOLF - GIU' DENTRO 

* SETTE GIOCHI 

BATTAGLIA NAVALE - BUCHI NERI - ODISSEA - MEMORY 
ANAGRAMMI - ARMA GIOVIANA - TRENI IN CORSA 


TF/0100-02 


TF/0100-03 
TF/0100-04 


TF/0100-05 
TF/0100-10 
TF/0100-11 


TF/0100-12 


TF/0101-02 
TF/0101-04 
TF/0101-06 
TF/0101-08 
TF/0101-10 


TF/0101-12 


TF/0101-14 


TF/0101-16 
TF/0101-18 


TF/0101-20 
TF/0101-22 


TF/0101-24 
TF/0101-26 


TF/0101-28 


TF/0102-02 


TF/0102-04 
TF/0102-06 
TF/0102-08 


TF/0102-10 


Prezzi netti IVA esclusa 


PREZZO 
VENDITA 


13.000 


13.000 


13.000 


13.000 


13.000 


26.000 


26.000 


26.000 


26.000 


26.000 


17.000 


17.000 


17.000 


17.000 
17.000 


17.000 
17.000 


17.000 


17.000 


17.000 
17.000 


17.000 


22.000 


22.000 


22.000 


22.000 


22.000 


REBIT 


COMPUTER 


A DIVISION OF G.B.C. 


TF/0102-12 


TF/0102-14 


TF/0102-16 


TF/0102-18 


TF/0102-20 


TF/0103-00 


TF/0103-02 


TF/0103-04 


TF/0103-06 


TF/0103-08 
TF/0103-10 


TF/0103-12 
TF/0103-14 
TF/0103-16 
TF/0103-18 
TF/0103-20 
TF/0103-22 


* GESTIONE FINANZIARIA PERSONALE 
POSSIBILITA DI MEMORIZZARE | CONTI 

SU NASTRO 

* AGENDE: 

RUBRICA INDIRIZZI ARRICCHITA - ARCHIVIAZIONE NOTIZIE 
CON POSSIBILITÀ’ RICERCA 

* MATEMATICA E FISICA 

FRAZIONI - STATISTICA - TEMPERATURE 
PROBLEMI - CONVERSIONI DI BASE 

© MATEMATICA, FISICA E VOCABOLARIO 
SOMMARE DIVERTENDOSI - LA BILANCIA - CALCOLO DEI VOLUMI 
MOLTIPLICAZIONI - VOCABOLI 

* TOOL-KIT 

STRUMENTO INDISPENSABILE AD OGNI PROGRAMMATORE 
CHE VOGLIA AFFINARE LE SUE ABILITA" 

2 GIOCHI IN ITALIANO (2K) 

MESSAGGI IN CORSA E BISCIA 

GIOCO DI ABILITA” 

ISTO-CARATTERI (2K) 

ISTOGRAMMI - INGRANDIMENTO DI CARATTERI 
TROVA MOLTE APPLICAZIONI 

DAMA e TOTOCALCIO 

DIVERTIMENTO E INVITO ALLA FORTUNA 
RUBRICA 

AGENDA TELEFONICA CONTIENE FINO A 200 
INDIRIZZI 

3 GIOCHI IN ITALIANO 

CODICE SEGRETO - BASE ALIENA - UFO 
TRATTAMENTO (16K) W.P. 

ELABORAZIONE TESTI, PER CONSERVARE 

E STAMPARE NOTIZIE E SCRITTI 

DI OGNI GENERE 

2 GIOCHI IN ITALIANO (16K) 

AIUTO - BERSAGLIO 

3 GIOCHI IN ITALIANO (16K) 

CANNONATE - TIRO A VOLO - SLALOM 

2 GIOCHI IN ITALIANO (16K) 

GALASSIA - LABIRINTO 

2 GIOCHI (16K) 

SCONTRO - FAR WEST 

2 GIOCHI (16K) 

ROULETTE - PENSACI 

MISSILI OSTACOLI (16K) 

ANCORA DUE DIVERTENTI GIOCHI PER ZX81 


PROGRAMMI PER IL TRS-80 MOD. li 


| programmi sottoelencati sono forniti su disco 8° 


CODICE 


TF/4502-00 


TF/4506-00 


TF/4507-00 


TF/4512-00 


TF/4511-00 


TF/4510-00 


TF/4530-00 


TF/4540-00 


TF/4701-00 


TF/4702-00 


TF/4703-00 


NOME E DESCRIZIONE 


INVENTORY CONTROL 

3000 ARTICOLI DI MAGAZZINO - 200 FORNITORI 

S. SCORTA - DIVISIONE IN CLASSI - STATISTICHE 
MAILING LIST 

3000 NOMI E INDIRIZZI IN FORMATO COMPATTO 

2000 IN FORMATO ESPANSO - SELEZIONI E STAMPE 
MAILING LIST Il (RICHIEDE 2 DISK) 

COME IL MAILING LIST MA SE USATO CON LO 

SCRIPSIT PERMETTE LA STAMPA DI CIRCOLARI SELEZIONATE 
VERSA FILE Il 

CREATEVI IL VOSTRO SISTEMA DI CLASSIFICAZIONE 
AUTOMATICA DELLE INFORMAZIONI - FACILE DA USARE 
VISICALC Il 

SUPERPROGRAMMA CHE GESFISCE COMPLESSE PROIEZIONI 
E GRANDI QUANTITA’ DI DATIPER SIMULAZIONI 
PROFILE Il 

GESTIONE DI MOLTI DATI CON MOLTI CRITERI DI 
SELEZIONE - COLLEGAMENTO ALLO SCRIPSIT - STAMPE 
SCRIPSIT ll 

UNO DEI SISTEMI DI GESTIONE DEI DATI FRA 

I PIU' POTENTI SUL MERCATO 

STATISTICAL ANALISYS 


STATISTICHE - VARIANZE - COVARIANZE - ISTOGRAMMI 
CORRELAZIONI - FREQUENZE - ECC 
FORTRAN 


STANDARD ANSI-66 - EDITORE - COMPILATORE 
EDITORE DI LINEA - BIBLIOTECA SOTTOPROGRAMMI 
EDITOR/ASSEMBLER 

EDITORE - MACROASSEMBLER - EDITORE DI LINEA 
BIBLIOTECA FORTRAN - TABELLA CORRISPONDENZE 
coBoL 
VERSIONE ESPANSA ANSI-74 - ISAM MULTICHIAVE 
AGCEPT/DISPLAY - DEBUG - MODULO RUN-TIME 


BANK 


22.000 


22.000 


22.000 


22.000 


22.000 


17.000 


17.000 


17.000 
22.000 


17.000 


22.000 


17.000 
17.000 
17.000 
17.000 
17.000 


17.000 


PREZZO 
VENDITA 


345.000 


140.000 


210.000 


125.000 


420.000 


340.000 


620.000 


180.000 


520.000 


350.000 


520.000 


TF/4704-00 


TF/4705-00 


TF/4706-00 


TF/4710-00 


TF/4714-00 


COBOL RUN-TIME 

PER L'ESECUZIONE DI PROGRAMMI SCRITTI 

E COMPILATI COL COBOL COMPILER 

BASIC COMPILER 

ISAM MONOCHIAVE - 14 CIFRE DI CALCOLO 

MODULO RUN-TIME - NON COMPATIBILE COL BASIC INTERPRETE 
BASIC RUN-TIME 

PER L'ESECUZIONE DI PROGRAMMI SCRITTI 

E COMPILATI COL BASIC COMPILER 

TEXT EDITOR 

SI PUO' INTEGRARE IN OGNI LINGUAGGIO DEL MOD. 2 
RICERCHE E SOSTITUZIONI SUOGALI PIU' ALTRO. 
REFORMATTER (RICHIEDE 2 DI: 

SCRITTURA - LESTURA E TRASFERIMENTO DI ARCHIVI 
TRA DISCHI TASDOS E DISCHI IMB 3741/3742 


PROGRAMMI PER IL TRS-80 MOD. Ill VERSIONE DISCO 


La minima configurazione per l'uso dei programmi presentati è indicata a fianco del nome. 
Tutti i programmi sono in inglese 


CODICE 


TF/1508-00 


TF/1551-00 
TF/1553-00 


TF/1558-00 


TF/1559-00 


TF/1562-00 


TF/1563-00 


TF/1565-00 


TF/1567-00 


TF/1569-00 


TF/1603-00 


TF/2010-00 


TF/1604-00 


TF/2201-00 


TF/2202-00 


TF/2204-00 


NOME E DESCRIZIONE 


IN-MEMORY INFORMATION (16K) 
CLASSIFICAZIONE DELLE INFORMAZIONI 
SALVATAGGIO E RICERCA SU DISCO 

DISK MAILING LIST 

PIU' POTENTE DELLA VERSIONE SU CASSETTA 
INVENTORY CONTROL (32K 2 DISCHI) 

FINO A 1000 ARTICOLI CON RAPPORTI SULLE 
VENDITE E LE ROTAZIONI DEL MAGAZZINO 
BUSINESS MAILING LIST (32K 2 DISCHI) 

FINO A 990 NOMI - CON 4BK E 4 DISCHI 

2970 NOMI) 

MANUFACTURING INVENTORY CONTROL (32K 2 DISCHI) 
GESTIONE DELLE DISTINTE BASE - 20 PRODOTTI 
FINITI e 1900 MATERIE PRIME PER DISCO 

PROFILE (32K 1 DISCO) 

GESTIONE DI ARCHIVI CON RICERCHE MULTIPLE 
ARCHIVI ACCESSIBILI DA PROGRAMMI UTENTE 
SCRIPSIT DISK (32K 1 DISCO) 

PROCEDURA DI TRATTAMENTO DELLA PAROLA 
STAMPE MULTIPLE - FACILE EDITING 

MICROFILES (32K 1 DISCO) 

VERSIONE SOFISTICATA DEL PROFILE 
VELOCISSIMO - COMANDI A SINGOLO TASTO 
VISICALC MOD. 3 (32K 1 DISCO) 
SUPERPROGRAMMA CHE PERMETTE DI LAVORARE 
CON PROIEZIONI E MODELLI DI SIMULAZIONE 
VISICALC AVANZATO MOD. 3 (32K 1 DISCO) 
UNISCE ALLA POTENZIALITA' DEL VISICALC 
L'ENORME FLESSIBILITA' DEL MOD. 3 

PERSONAL FINANCE DISK (16K) 

FORNITO IN VERSIONE CASSETTA PUO' ESSERE 
ADATTATO AL DISCO (FINO A 32K 2 DISCHI) 

DISK BASIC COURSE (16K 1 DISCO) 

UN GRANDE CORSO SU 4 DISCHI CON TUTTE 

LE PIU' POTENTI ISTRUZIONI DEL BASIC MOD. 3 
VERSAFILE (32K 1 DISCO) 

SCRIVETE CIO' CHE VI VIENE IN MENTE E 

IL TAS-80 LO RICORDA - CHIEDETEGLIELO! 
FORTRAN (32K 2 DISCHI) 

COMPILATORE - EDITORE DI TESTI - 

EDITORE DI LINEA - LIBRERIA 
EDITOR/ASSEMBLER DISK (32K 2 DISCHI) 
ASSEMBLATORE - EDITORE DI TESTI 

EDITORE DI LINEA - TABELLA DELLE CORRISPONDENZE 
BASIC COMPILER (48K 2 DISCHI) 

TUTTA LA POTENZA DEL LINGUAGGIO MACCHINA 
DAL BASIC - INCOMPATIBILE CON IL BASIC INTERPRETE 


600.000 


430.000 


60,000 


150.000 


450.000 


PREZZO 
VENDITA 


36.000 


70.000 


170.000 


170.000 


320.000 


135.000 


150.000 


185.000 


175.000 


300.000 


35.000 


60.000 


50.000 


160.000 


160.000 


280.000 


PROGRAMMI PER IL TRS-80 MOD. Ill VERSIONE CASSETTA 


La minima configurazione per l'uso dei programmi presentati è indicata a fianco del nome, 
Tutti | programmi sono in inglese 


coDICE 


TF/1502-00 


TF/1503-00 


TF/1505-00 


TF/1602-00 


TF/1603-01 


TF/1605-00 


TF/1701-00 


TF/1702-00 


TF/1703-00 


TF/1705-00 


NOME E DESCRIZIONE 


IN-MEMORY PROGRAM (16K) 

CLASSIFICAZIONE DELLE INFORMAZIONI 
SALVATAGGIO E RICERCA 

MAILING LIST (16) 

GESTIONE INDIRIZZI CON STAMPA 

ETICHETTE - 80 NOMI PER VOLTA OGNI 16K 

SCRIPSIT (16K) 

PROGRAMMA COMPLETO DI TRATTAMENTO 

DEI TESTI - MOLTO POTENTE 

PERSONAL FINANCE (4K) 

GESTION ENTRATE È USCITE FAMILIARI 

GESTIONE BILANCIO MENSILE 

PERSONAL FINANCE DISK (16K) 

FORNITO IN VERSIONE CASSETTA PUO' ESSERE 
ADATTATO AL DISCO (FINO A 32K 2 DISCHI) 
ASTROLOGY (16K) 

PRODUZIONE DI OROSCOPI PERSONALI SE COLLEGATO 
AD UNA STAMPANTE PRODUCE IL QUADRO ASTRALE 
MATHEMATIC COURSE (4K) 

INSEGNA Al BAMBINI LE 4 OPERAZIONI 

ALGEBRA COURSE (4K) 

IMPARARE L'ALGEBRA È FACILE! - E NON È 
NECESSARIO ASPETTARE DI FREQUENTARE LE MEDIE! 
STATISTIC COURSE (16K) 

PER IMPARARE AGEVOLMENTE E FACILMENTE 

AD USARE LE TEORIE STATISTICHE - ANCHE PER GRANDI 
ADVANCED STATISTICS (16K) 

INTEGRA E COMPLETA IL CORSO DI STATISTICA 

CON QUALCOSA DI PIU' COMPLESSO 


Prezzi netti IVA esclusa 


PREZZO 
VENDITA 


32.000 


35.000 


120.000 


30.000 


35.000 


50.000 


37.000 
30.000 


50.000 


80.000 


TF/1706-00 


TF/1712-00 


TF/2000-00 


TF/2001-00 


TF/2002-00 


TF/2003-00 
TF/2005-00 
TF/2006-00 
TF/2009-00 


1.Q. BUILDING (16K) 

CALCOLO E MIGLIORAMENTO DEL PROPRIO 
QUOZIENTE D'INTELLIGENZA TRAMITE SEMPLICI TEST 
SHOW & SPELL (16K) 

FACILE CORSO DI GRAMMATICA INGLESE 

PER BAMBINI 

DEBUG (16K) 

PROGRAMMA DI CONTROLLO E DI ESECUZIONE 


PER PROGRAMMI IN LINGUAGGIO MACCHINA IN MEMORIA 


T-BUG (16K) 

CARICA UN PROGRAMMA IN LINGUAGGIO MACCHINA 
DA CASSETTA E NE PERMETTE IL DEBUG 
EDITOR-ASSEMBLER (16K) 


PERMETTE D'INTRODURRE UN PROGRAMMA IN LINGUAGGIO 


SIMBOLICO ZILOG E DI ASSEMBLARLO 

LEVEL 1 COURSE (4K) 

CORSO DI BASIC LIV. 1 

BASIC COURSE LEVEL 2 PT.1 (16K) 

CORSO DI BASIC ELEMENTARE - PRIMA PARTE 
BASIC COURSE LEVEL 2 PT. 2 (16K) 

CORSO DI BASIC ELEMENTARE - SECONDA PARTE 
TINY PASCAL TAPE (16K) 

COMPILATORE DI UN SUBSET DEL LINGUAGGIO 
PASCAL - POTENZIALITA' MAI VISTA! 


PROGRAMMI PER IL TRS-80 POCKET COMPUTER 


Tutti i programmi sono forniti su cassetta e sono in inalese 


CODICE 


TF/3511-00 


TF/3513-00 


TF/3514-00 


TF/3515-00 


TF/3516-00 


TF/3517-00 


TF/3518-00 


NOME E DESCRIZIONE 


CIVIL ENGINEERS 

PROGRAMMI DI INGEGNERIA - CALCOLO TELAI - 
SFORZI AI BULLONI - TRAVI INCASTRATE - ECC. 
AVIATION 

CALCOLO DEL PIANO DI VOLO - ANGOLO DI DERIVA 
CONVERSIONI TRA UNITA’ DI MISURA - ECC. 

MATH DRILL 

ESERCIZI PER GLI SCOLARI DELLE PRIME CLASSI 
POSSIBILITA’ DI INTRODURRE NUOVI PROBLEMI 
GAMES ONE 

CANNIBALI E MISSIONARI - NIM - ATTERRAGGIO 
NELLO SPAZIO - CACCIA AL TESORO - ECC. 
BUSINESS MARKETING 

METODO DELLA MEDIA MOBILE PER IL CALCOLO E 


LA CORREZIONE AUTOMATICA DELLE PREVISIONI - ECC. 


BUSINESS FINANCE 

SETTE PROGRAMMI DIFFERENTI PER AIUTARE 

L'UOMO D'AFFARI - CALCOLI INTERESSI - GIORNI - ECC. 
PERSONAL FINANCE 

GESTIONE DEL BILANCIO FAMILIARE - GESTIONE 

C/C BANCARIO - INTERESSI - CONVERSIONI - ECC. 


PROGRAMMI PER IL TRS-80 COLOR COMPUTER 


Tutti i programmi sono distribuiti sotto forma di CARTRIDGE (memoria allo stato solido). 
Tutti i programmi sono in inglese. 
Tutti i programmi contrassegnati da asterisco richiedono l'uso di joystick 


CODICE 


TF/3019-00 


‘TF/3050-00 
TF/3051-00 


TF/3052-00 
TF/3055-00 
TF/3056-00 
TF/3057-00 
TF/3056-00 
TF/3059-00 
TF/3060-00 
TF/3061-00 
TF/3063-00 
TF/3103-00 
TF/3101-00 
TF/9151-00 


TF/3152-00 


NOME E DESCRIZIONE 


ROM DIAGNOSTICA 

CONTROLLO DELLA PERFETTA EFFICIENZA 

DEL VOSTRO CACOLATORE 

SCACCHI 

DA ALLENAMENTO, MA ANCHE DA COMBATTIMENTO! 
* QUASAR COMMANDER 

RADAR - PILOTA AUTOMATICO - CAMPI DI FORZA 
DIVERSI LIVELLI DIFFICOLTA" 

* PINBALL 

IL CLASSICO GIOCO DEL FLIPPER ORA ANCHE 
SUL TELEVISORE - DA 1 A 4 GIOCATORI 
CHECKERS 

GIOCO DELLA DAMA A DUE LIVELLI DI DIFFICOLTA" 
PREVEDE LE 3 MOSSE SUCCESSIVE 

* SUPER BUSTOUT 

GIOCO RAPIDO PER 1-4 GIOCATORI - SINGOLO 

O IN EQUIPE - SFONDATE LE LINEE COL PALLONE 
* DINO WARS (16K CONSIGLIATI) 

DUE GIOCATORI ALLE PRESE CON | DINOSAURI 
GRAFICA E SONORO REALISTICI 

* SKILING (16K CONSIGLIATI) 

DISCESA SCIISTICA CONTRO IL TEMPO 

VISTA CON GLI OCCHI DELLO SCIATORE 

* COLOR BACKGAMMON 

CLASSICO GIOCO DI SOCIETA' - CONTRO 

IL CLACOLATORE O UN ALTRO AVVERSARIO 

* SPACE ASSAULT 

GLI EXTRATERRESTRI VI INVADONO LO SCHERMO 
E VI ATTACCANO! - BUONA FORTUNA! 

* ART GALLERY (16K CONSIGLIATI) 

CREATE LA VOSTRA GALLERIA DI QUADRI 
MODERNI - CONSIGLIATI | JOYSTICK 

* PROJECT NEBULA 

RESPINGETE GLI INVASORI DELLA VOSTRA 
GALASSIA - 4 LIVELLI - APPASSIONANTE! 

COLOR FILE 

PICCOLO SISTEMA DI GESTIONE PER TANTI 
ARCHIVI - SI USA COL REGISTRATORE A CASSETTE 
PERSONAL FINANCE 

PIANIFICATE IL BUDGET FAMILIARE 


COMPARATE ENTRATE E USCITE - PREVEDETE IL BILANCIO 


* BINGO MATH 

INSEGNA LE 4 OPERAZIONI E IL RICONOSCIMENTO 
DEI NUMERI - 1-2 GIOCATORI 

TYPING TUTOR 

ESERCIZI BASATI SU LETTERE E PAROLE 
CONTROLLA VELOCITA' - RIFLESSI - ERRORI 


50.000 


60.000 


40.000 


35.000 


50.000 


‘30.000 
30.000 
35.000 
38.000 


PREZZO 
VENDITA 


42.500 


42.500 


38.000 


38.000 


35.000 


35.000 


35.000 


PREZZO 
VENDITA 


39.000 


90.000 
60.000 


50.000 


60.000 


60.000 


70.000 


70.000 


60.000 


50.000 


80.000 


90.000 


60.000 


90.000 


60.000 


60.000 


TF/3153-00 


TF/3154-00 


LEARNING LAB 80.000 
COMBINAZIONE DI LOGICA E TESTI PER 

INSEGNARE IL COLOR BASIC - ORGANIZZAZIONE E STESURA 

HANDY MAN 60.000 
CALCOLO DELLE ESATTE NECESSITA’ DEL LAVORO 

DEL BRICOLAGE - MATERIALI - CONSIGLI 


PROGRAMMI PER IL BMC IF 800 MOD. 20 


Tutti i programmi sottoelencati sono forniti su disco 5°. 


CODICE 


TF/2502-00 
TF/2504-00 


‘ TF/2506-00 
TF/2508-00 


TF/2510-00 
TF/2512-00 
TF/2514-00 
TF/2516-00 
TF/2518-00 


TF/2520-00 


NOME E DESCRIZIONE REZZA, 
FORTRAN-80 (RICHIEDE IL CP/M) 800.000 
EDITORE - COMPILATORE - EDITORE DI 

LINEA ANSI-66 

BASIC COMPILER (RICHIEDE IL CP/M) 650.000 
RENDE PIU' VELOCI | PROGRAMMI IN BASIC 

INTERPRETE 

MBASIC (RICHIEDE IL CP/M) 300.000 
BASIC INTERPRETE 

T-MAKER 2 (RICHIEDE IL CP/M) 700.000 


GESTIONE DI TESTI E ARCHIVI IN COMBINAZIONE 

CON TUTTI | TIPI DI CALCOLO NUMERICO 

SUPERCALC (RICHIEDE IL CP/M) 500.000 
IL VOSTRO FOGLIO ELETTRONICO A COLORI 

CALCOLI E PRVISIONI FINANZIARIE 

WORD STAR (RICHIEDE IL CP/M) 800.000 
L'ULTIMO E IL PIU' PERFEZIONATO PROGRAMMA 

«PER GESTIONE DI TESTI - PUO' TUTTO! 

WORD INDEX (RICHIEDE IL CP/M) ‘300.000 
IN ABBINAMENTO AL WORD STAR PERMETTE 

LE STAMPE DI MANUALI - INDICE E RIASSUNTI AUTOMATICI 


COBOL-80 (RICHIEDE IL CP/M) 1.300.000 
COMPILATORE ANSI-74 - ACCEPT/DISPLAY - 

EDITORE 

DBMS (RICHIEDE IL CP/M) 1.000.000 


GESTIONE COMPLETA DI GRANDI ARCHIVI 

RICERCHE MULTICHIAVE - STAMPE DI TUTTI | TIPI 

ARCHIVI (IN OKI-BASIC) 400.000 
IL DISCO CONTIENE DIVERSI PROGRAMMI 

DI ARCHIVIO PIU' UN DEMO E UN PROGRAMMA TYPEWRITER 


PROGRAMMI PER IL COMMODORE (LINEA 3000 - 4000 - 8000) 


Tutti i programmi sottoelencati sono forniti su disco 5". 
Per ogni programma verrà specificato il modello. 


CODICE 


TF/1102-00 


TF/1104-00 


TF/1106-00 


TF/1108-00 


TF/1110-00 


TF/1112-00 
TF/1114-00 
TF/1116-00 


TF/1118-00 


TF/1120-00 


TF/1122-00 


TF/1124-00 


TF/1126-00 


TF/1128-00 


TF/1130-00 


NOME E DESCRIZIONE REZO 
FATTURAZIONE MANUALE (3000) 700.000 


GESTIONE CLIENTI - EMISSIONE FATTURE 

E TRATTE - SENZA CODIFICA MAGAZZINO 

GESTIONE CONDOMINI! (3000) 800.000 
GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 

LETTERE - CIRCOLARI - SOLLECITI 

GESTIONE CONDOMINI! (4000) 800.000 
GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 

LETTERE - CIRCOLARI - SOLLECITI 

GESTIONE COMDOMINII (8000) 800.000 
GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 

LETTERE - CIRCOLARI - SOLLECITI 

WORD PROCESSOR (8000) 630.000 
PROCEDURA COMPLETA DI TRATTAMENTO DEI TESTI 

PERMETTE CIRCOLARI SELEZIONATE 


ASSEMBLER (3000) 115.000 
EDITORE - ASSEMBLATORE SIMBOLICO 6502 

PASCAL (3000) 115.000 
SUBSET UCSD PASCAL - COMPILATORE - EDITORE 

GESTIONE LABORATORI ANALISI MEDICHE (3000) ‘900.000 


GESTIONE COMPLETA DI UN LABORATORIO - STAMPA 

I DOCUMENTI PER GLI ENTI - STATISTICHE 

GESTIONE LABORATORI ANALISI MEDICHE (4000) 900.000 
GESTIONE COMPLETA DI UN LABORATORIO 

STAMPA | DOCUMENTI PER GLI ENTI - STATISTICHE 

GESTIONE LABORATORI ANALISI MEDICHE (8000) 900.000 
GESTIONE COMPLETA DI UN LABORATORIO 

STAMPA | DOCUMENTI PER GLI ENTI - STATISTICHE 

VISICALC (4000 + ROM AGGIUNTIVA FORNITA) 310.500 
SUPERPROGRAMMA PER GESTIONE DATI NUMERICI 

PROIEZIONI - SIMULAZIONI 

VISICALC (8000 + ROM AGGIUNTIVA FORNITA) 310.500 
SUPERPROGRAMMA PER GESTIONE DATI NUMERICI 

PROIEZIONI - SIMULAZIONI 

COM-PLUS (8000) 60,000 
UTILE ACCESSORIO PER SUPERARE LA BARRIERA 
DELL'INCOMPATIBILITA' TRA | DIVERSI SISTEMI 

WORD-CRAFT (8000 + CHIAVE D'ACCESSO) 692.500 
ALTRA VERSIONE DI WORD PROCESSOR CON CARATTERISTICHE 
ADERENTI AD ESIGENZE DIVERSE 

VIGIL (3000) 120.000 
LINGUAGGIO ORIENTATO ALLA PRODUZIONE DI GIOCHI 

SONORI E GRAFICI - 9 GIOCHI ESEMPIO FORNITI 


PROGRAMMI PER IL VIC-20 CBM 


Tutti i programmi sottoelencati sono registrati su cassetta. 
Se non specificato, si intende che i programmi funzionano con la memoria in configurazione 


base, 


CODICE 


TF/9350-00 


NOME E DESCRIZIONE MEZZO, 
VICALCOLO (RAM-STANDARD) 40.000 


CALCOLI MATEMATICI - INTERESSE COMPOSTO 
PIANI DI AMMORTAMENTO 


Prezzi netti IVA esclusa 


‘TF/9350-02 CREO-LISTA-STAMPA (RAM STANDARD) 40.000 
PER REALIZZARE TESTI, LETTERE E 
CIRCOLARI PERSONALIZZATE 

TF/9350-04 DAMA (RAM STANDARD) 17.500 
GIOCO DELLA DAMA CONTRO IL CALCOLATORE 
PER TUTTI, GRANDI E PICCOLI 


TF/9402-00 THE ALIEN WITH JOYSTICK (6K) 60.000 
PROVATE A CALARVI NEI PANNI DELL'ALIENO! 

‘TF/9404-00 AMOK 60.000 
UN GIOCO DI COMBATTIMENTO E DI VIOLENZA 

TF/9406-00 THE ALIEN 60.000 
SIETE L'ALIENO E DOVETE SOPRAVVIVERE! 

TF/9408-00 3-D MAZE 36.000 


TROVATE L'USCITA DAL LABIRINTO TRIDIMENSIONALE! 
DIVERSI LIVELLI DI DIFFICOLTA" 


TF/9410-00 ALIEN BLITZ (JOYSTICK OPZIONALE) ‘60.000 
DISTRUGGETE GLI INVASORI DEL CIELO! 

TF/9412-00 VICAT 60.000 
GESTIONE DI UN ARCHIVIO SEQUENZIALE SU CASSETTA 

TF/9300-00 CASSETTA PROGRAMMI DIMOSTRATIVI 15.700 


DIMOSTRA LA POTENZA DEL VIC 


PROGRAMMI PER IL VIC-20 CBM 


Tutti i programmi sottoelencati sono registrati su cartridge. 
Se non specificato, si intende che i programmi funzionino con la memoria in configurazione 
base. 


PREZZO 
CODICE NOME E DESCRIZIONE VENDITA 
TF/9300-04 INVASORI SPAZIALI 37.000 


GRANDE REALISMO - ALTA VELOCITA” 
NON VI FATE PRENDERE DAL PANICO! 

TF/9300-06 GARA AUTOMOBILISTICA 37.000 
PROVATE L'EBREZZA DELLA VELOCITA’ 
E DELLA COMPETIZIONE - 1 o PIU' GIOCATORI 

TF/9300-08 —ATTERRAGGIO SU GIOVE 37.000 
ESSERE AL COMANDO DI UNA ASTRONAVE NON È SEMPLICE 
MA QUESTO LO IMPARERETE A VOSTRE SPESE 

TF/9300-10 GIOCO DEL POKER 37.000 
ATTENZIONE! - POTRESTE RESTARE POVERI! 
QUI NON SI TRATTA DI FORTUNA 

TF/9300-12 IL FANTASMA DI MEZZANOTTE 37.000 
FUGGITE VIA DALLA CASA INFESTATA DAGLI SPIRITI 
‘SE VE NE RIMANE IL TEMPO 

TF/9300-14 BILANCIO FAMILIARE 37.000 
PIANIFICATE LE VOSTRE SPESE IN FUNZIONE DELLE ENTRATE 
GESTITE IL VOSTRO C/C BANCARIO 

TF/9300-16 APPLICAZIONI MATEMATICHE 37.000 
UN VALIDO AIUTO TESO AL MIGLIORAMENTO 
DELLE PROPRIE CAPACITA' DI CALCOLO 


TF/9300-18 —SLOT MACHINE 37.000 
IL CELEBRE GIOCO D'AZZARDO 

TF/9300-20 —AVENGER 37.000 
INTERESSANTE GIOCO DI SIMULAZIONE 

TF/9300-22 —RATRACE 37.000 

TF/9300-24 MOLE ATTACH ‘37.000 

TF/9300-28 —1SCACCHI 37.000 


TF/9300-28 MATHEMATICAL ANALYSIS VIC-GRAF. 95.000 
VALIDO AIUTO NELLO STUDIO DI ù 
COMPLICATE EQUAZIONI E FUNZIONI 
E DEI RELATIVI GRAFICI i) 
TF/9300-30 —VIC FORTH LANGUAGE 95.000 
CARTRIDGE PER PROGRAMMARE 
IL VIC CON IL NUOVO E POTENTE 
LINGUAGGIO FORTH. INTERESSANTISSIMO. 
A CORREDO, MANUALE PER IL RAPIDO 
APPRENDIMENTO 
TF/9300-32 MATHEMATICAL ANALYSIS VIC-STAT. 95.000 
ROM IN LINGUAGGIO ASSEMBLER PER 
SEMPLIFICARE IL LAVORO CON STATISTICHE 
E GRAFICI SUL VIDEO. CON UNA SOLA 
ISTRUZIONE SI OTTENGONO 
ISTOGRAMMI, DEVIZIONI, STANDARD, 
VARIANZE ECC. 


PROGRAMMI PER APPLE Il 


Tutti i programmi sono forniti su disco. 
Per ogni programma è indicata la lingua (italiano-inglese) in cui è stato scritto. 
Ove non indicato, si intende che i programmi girano sulla configurazione 16K 1 disco 


CODICE NOME E DESCRIZIONE VENDITA 

TF/5502-00 TOTOCALCIO SISTEMA A CORREZIONE D'ERRORI (It.) 80.000 
ELABORAZIONE DI SISTEMI RIDOTTI 

TF/5504-00 TOTOCALCIO CHIAVE ALFA 6 SUPER (It.) 70.000 


SISTEMA RIDOTTO 10 TRIPLE CON FATTORE DI 
RIDUZIONE - INDICATO AL SISTEMISTA SERIO 

TF/5506-00 —1TOTOCALCIO SISTEMA DERIVATO A ROTAZIONE (It.) 90.000 
ELABORAZIONE DI UN NUMERO STABILITO DI COLONNE 
IN BASE AD UN NUMERO CONCORDATO DI ELIMINAZIONI 

TF/5508-00 APPLE PANIC (Ing.) 72.000 
LABIRINTO DI SCALE - ALTA RISOLUZIONE 
GRAFICA AD ALTA VELOCITA' 


TF/5510-00 —ADVENTURES 1/2/3 (Ing.) 110.000 
ADVENTURELAND - PIRATE'S ADVENTURE - MISSION IMPOSSIBLE 

TF/5512-00 —ADVENTURES 4/5/6 (Ing.) 110.000 
VODOO CASTLE - THE COUNT - STRANGE ODYSSEY 

TF/5514-00 —ADVENTURES 7/8/9 (Ing.) 110.000 
MYSTERY - FUN HOUSE - PYRAMID OF DOOM 
GHOST TOWN 

TF/8516-00 —FLIGHT SIMULATOR (Ing.) 60.000 


UN REALISTICO SIMULATORE DI VOLO CON VISTA 
DAL CIELO E DALL'AEREO - ANCHE FASI DI COMBATTIMENTO 

TF/5518-00 COMPUCUBE (Ing.) 72.000 
GREARE - RIMESCOLARE - RISOLVERE IL CUBO 
MAGICO - TRIDIMENSIONALE 

TF/5520-00 DRAW POKER (Ing.) 72.000 
IL MIGLIOR PROGRAMMA NEL SUO GENERE 
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Raccolta 
di routine Basic 


Mescolare 

Questa routine (righe da 1150 a 1240) mesco- 
la in modo casuale i primi N numeri interi. Può 
servire per esempio a mescolare un mazzo di 
carte (N=40 o N=52). In termini matematici, 
la routine calcola una permutazione casuale dei 
primi N numeri. 

Nelle righe da 1 a 5 vi è un esempio di utiliz- 
zo. Dapprima (riga 1) si deve dichiarare il valo- 
re di N, e dimensionare M con lo stesso valore. 
Quindi (riga 2) si entra alla prima riga della 
routine. Al ritorno (riga 3) si stampa la permu- 
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tazione casuale ottenuta. La seconda volta che 
si chiama la routine (riga 4) e tutte le volte suc- 
cessive si può entrare direttamente alla riga 
1180 evitando il riordinamento del vettore (che 
invece la prima volta è necessario perché deve 
essere creato). 

Nella riga 1190 si è indicato con RND un nu- 
mero casuale tra 0 e 1. L’istruzione 


J=INT(RND*I)+1 lo trasforma in numero ca- 
suale tra 1 e I. In alcuni Basic (per esempio 
TRS-80 e Sinclair ZX-80) ciò si può fare diret- 
tamente ponendo J=RND(I). 


PRIMI: 
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BALI 


POLUI ERE 


Una tecnica per la 
programmazione dei 
progetti 


di W. Douglas Maurer 


La riproduzione di questo articolo 
è stata concessa da BYTE. 
Traduzione di Flavio Santini 


PERSONAL SOFTWARE 


L'organizzazione 


PERT 


‘acronimo PERT sta per 
Upea Evaluation and Re- 

view Technique, un metodo 
matematico usato da migliaia di 
programmatori di grandi e piccoli 
sistemi per risolvere uno dei pro- 
blemi tipici dei manager del livello 
medio: come valutare la reciproca 
importanza dei lavori di cui sono 
responsabili. 

Chiamiamo manager del livello 
medio una persona responsabile di 
un progetto composto da più lavo- 
ri. Diversi manager del livello infe- 
riore, preposti ai vari lavori, fanno 
riferimento al manager del livello 
medio. (D’altro canto, il manager 
di livello superiore si occupa preva- 
lentemente della scelta dei progetti 
e della formulazione dei piani d’a- 
zione.) I compiti di base del mana- 
ger del livello medio sono quelli di 
prevedere i possibili ostacoli e di 
completare il progetto nel tempo 
stabilito. 


Un problema tipico 


Per illustrare nel modo più chia- 
ro il problema che i manager di li- 
vello medio devono affrontare, 
consideriamo il caso specifico in 
cui il progetto è la costruzione del 
quinto piano di un edificio. Il pro- 
getto inizia con la preparazione e 
la gittata del cemento armato. Per 
questo sono richiesti sei giorni, ma 
supponiamo che, per qualche moti- 


vo, ne siano stati impiegati sette. 
Per ora il progetto è in ritardo di 
un giorno. 

A questo punto il manager esa- 
mina i vari lavori: mettere a piom- 
bo, isolare, e così via, e si accorge 
che, mentre quasi tutti richiedono 
dai tre ai cinque giorni, l’installa- 
zione del circuito elettrico ne occu- 
perà sedici. Quindi assume qualche 
elettricista in più per effettuare il 
tutto in quattordici giorni. Ora il 
progetto è in vantaggio di un gior- 
no sui programmi. Davvero? Dopo 
che i fili sono stati disposti, si passa 
a ricoprire ed intonacare, il che si 
può fare non appena finita l’isola- 
zione del circuito. Questa richiede 
solo tre giorni, ma non può essere 
iniziata finché non sono terminati i 
controlli elettrici, che richiedono 
altri tre giorni. Ovviamente i con- 
trolli possono iniziare solo quando 
sono pronti i collegamenti e gli im- 
pianti, realizzati in cinque giorni... 
e avanti così. Alla fine il progetto è 
di nuovo in ritardo di un giorno. 

Il problema di questo esempio 
(tolto, come gran parte del mate- 
riale per questo articolo, da Funda- 
mentals of Data Structures, vedi bi- 
bliografia) è che la disposizione del 
circuito elettrico non è un’opera- 
zione critica (cioè un lavoro che 
causa lo slittamento dell’intero 
progetto se non è compiuto nel 
tempo previsto). Infatti in questo 
caso il manager avrebbe potuto as- 
sumere meno elettricisti, e consen- 
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tire che il lavoro fosse effettuato in 
non più di ventotto giorni. Il dena- 
ro risparmiato potrebbe essere spe- 
so per l’assunzione di più operai 
per gli altri lavori che sono critici. 
Come può il manager determinare 
se un’operazione è critica o no? 
Ecco l’utilità del PERT. 


L’analisi dei problemi col PERT 


Il PERT può essere applicato in 
molti modi. Vediamo un semplice 
esempio. Per prima cosa ogni lavo- 
TO, 0 operazione, viene numerato, 
in modo che tutti i lavori possano 
essere eseguiti in ordine numerico. 
Per esempio, non possiamo preten- 
dere che l’operazione numero 7 
venga ultimata prima di iniziare la 
numero 4, perché in tal caso si po- 
teva assegnare alla numero 4 un 
valore più alto di 7. Se ci sono n 
operazioni, esse vengono numerate 
dalan. 

Per assumere una notazione 
adatta al computer, costruiamo 
una matrice bidimensionale, chia- 
mata B. Se vogliamo che, per ogni 
coppia I e J di lavori, I venga finito 
prima di iniziare J, poniamo B(I,J) 

= 1. Altrimenti B(1,J)=0. (Se non 
volessimo usare i doppi indici, po- 
tremmo adottare il seguente truc- 
co: costruire un vettore A_ di N? 
elementi, dove n è il numero dei 
lavori, e riferirsi, invece che a 
B(1,J), ad A(K) se prima si è asse- 
gnato K=n per (I-1)+J. Così gli 
elementi da B(1,1) a B(1,n) vengo- 
no rappresentati con 
A(1),....,A(n); B(2,1),...,B(2,n) di- 
ventano A(n+1),...,A(2n); e così 
via.) 

Inizializziamo la matrice a zero 
quindi inseriamo il valore 1 nei po- 
sti giusti, secondo la regola detta 
sopra. Costruiamo anche un vetto- 
re T, tale che T(I) è la quantità di 
tempo richiesta dall’operazione nu- 
mero I. Se T(7)=5, significa che 
l'operazione numero 7 può essere 
realizzata in cinque giorni. (In ef- 
fetti potrebbero essere cinque setti- 
mane, o cinque ore, purché in tut- 
to il vettore T sia usata la stessa 
unità di misura.) Introduciamo tut- 
ti gli elementi di T, facendo variare 
Idalan. 
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Fig. 1. Un tipico progetto contenente dieci lavori, 0 operazioni. Ogni lavo- 
ro richiede un certo numero di giorni e può essere iniziato solo se quelli 


precedenti sono stati conclusi. 


Ora disponiamo di tutti i dati ne- 
cessari, e possiamo dedicarci alla 
ricerca delle operazioni critiche. 
Prima dobbiamo creare un vettore, 
che chiameremo T1, in modo che 
T1(I) sia il tempo minimo d'’inizio 
per il lavoro numero I. Se 
T1(5)=9, allora l’operazione nu- 
mero 5 non può essere intrapresa 
prima del nono giorno del proget- 
to. (D’ora in poi considereremo il 
giorno come unità di tempo). 

La figura 1 illustra la ragione per 
cui T1(5) può essere uguale a 9. I 
numeri nei cerchietti corrispondo- 
no ai lavori, e sono collegati tra lo- 
ro dalle freccie; tutte le operazioni 
raggiunte da freccie in entrata de- 
vono essere completate prima di 
iniziare l'operazione seguente. L’o- 
perazione numero 1 richiede 5 
giorni e la numero 3 ne richiede 3. 
Se consideriamo solo la parte supe- 
riore del diagramma, possiamo de- 
sumere che il lavoro numero 5 può 
essere iniziato dopo otto giorni. 
Tuttavia, se prendiamo in esame il 
resto del diagramma, vediamo che, 
prima di passare alla numero 5, bi- 
sogna effettuare le operazioni nu- 
mero 2, da quattro giorni, e nume- 
ro 4, da cinque giorni. Perciò l’o- 
perazione numero 5 può, in effetti, 
essere iniziata solo dopo nove gior- 
ni. 

(Spesso genera confusione il fat- 
to che se un lavoro richiede tre 
giorni, e viene iniziato, diciamo, di 
lunedì, dovrebbe finire mercoledì. 
E mercoledì è due giorni, non tre, 
dopo lunedì. La soluzione a questo 


paradosso consiste nel considerare 
un giorno come un periodo di 24 
ore. Se un lavoro è iniziato alle 8 
di mattina di lunedì, e richiede tre 
giorni, diciamo che termina alle 8 
di giovedì, mentre in realtà è finito 
alle 5 del pomeriggio di mercole- 
dì.) 

Nella figura 2, la freccia che con- 
giunge le operazioni I e J corri- 
sponde a B(I,J)=1. Così B(1,3)=1 
e B(3,5)=1. Si potrebbe discutere 
se si debba porre B(1,5)=1 o no; 
dopo tutto, il lavoro numero 1 de- 
ve essere finito prima di iniziare il 
numero 5, ma solo in senso implici- 
to. In questo caso, non ha impor- 
tanza se B(1,5)=1. 

In generale, le coppie ridondanti 
di operazioni possono essere date 
in input o tralasciate; il calcolo del- 
l'operazione critica darà, comun- 
que, lo stesso risultato. 

AI variare di I da 1 a n, si effet- 
tua il calcolo del tempo minimo di 
inizio, T1(I). Ad ogni passo, consi- 
deriamo tutti i B(K,I) per K mino- 
re di I tali che B(K,I)=1. Se non 
deve terminare niente prima di po- 
ter iniziare l'operazione I, allora 
poniamo T1(I)=0, poiché in tal ca- 
so il lavoro I può cominciare al 
tempo zero. Nell’implementare il 
problema della figura 1, poniamo 
T1(1)=0 e T1(2)=0. 

Se c'è un elemento B(K,I) che 
soddisfa la condizione sopra, allora 
aggiungiamo T1(K), il tempo mini- 
mo in cui si può iniziare il lavoro 
K, a T(K), il tempo richiesto dal 
lavoro K. Così, nella figura 1, per 


calcolare T1(3), sommiamo Ti(1) e 
T(1). Otteniamo che il lavoro 1 
può partire al tempo zero, e richie- 
de cinque giorni. Chiaramente, l’o- 
perazione 3 non può iniziare prima 
di cinque giorni dopo — quindi 
T1(3)=5. Allo stesso modo si cal- 
cola T1(4)=4. 


Si deve supporre che 
l’ultima operazione 
non possa iniziare 
prima che le altre 
siano concluse. 


Se più di un elemento B(K,I) 
soddisfa la condizione, allora ripe- 
tiamo il calcolo più volte e sceglia- 
mo il risultato maggiore. Calcolia- 
mo T1(5) basandoci sulla figura 1. 


Abbiamo: 


T1(3)=5 
T(3)=3 
Ti(3)+T(3)=8 


T1(4)=4 
T(4)=5 
TI(4)+T(4)=9 


Questo è il conto che abbiamo 
già fatto. La prima condizione dice 
che il lavoro numero 5 può iniziare 
solo dopo otto giorni; per la secon- 
da invece solo dopo nove giorni. 
Ed è proprio questa la data che 
conta. In generale, potrebbe essere 
necessario considerare tre o più ca- 
si, e si dovrebbe assumere il risul- 
tato maggiore. 

I risultati di T1(I), per tutti gli I, 
sono dati nella figura 2. Nei casi 
pratici, di solito, l’ultimo lavoro 
del progetto è la rifinitura, e non la 
si può effettuare prima di aver ter- 
minato tutto il resto. Nel prossimo 
calcolo, dobbiamo supporre che 
l’ultima operazione non può inizia- 
re prima che tutte le altre siano 
concluse. Se non è così, consideria- 
mo un lavoro fittizio, come il nu- 
mero 10 nelle figure 1 e 2, che non 
richiede alcun tempo e chiude il 
progetto. 

Se T(I)=J non è necessariamen- 
te vero che l’operazione numero I 


deve iniziare al tempo J. Conside- 
riamo i lavori 6,7,9 e 10 della figu- 
ra 2, e supponiamo che comincino 
tutti nei tempi stabiliti; cioè nel- 
l’undicesimo, diciottesimo, ventesi- 
mo e ventiduesimo giorno, rispetti- 
vamente. Ora prendiamo in esame 
l’operazione numero 8. Si è pro- 
grammato di iniziarla nel diciottesi- 
mo giorno, ma potrebbe anche co- 
minciare nel diciannovesimo (per- 
ché il lavoro richiede tre giorni, e 
quando lo si finisce si è arrivati al 
ventiduesimo — giorno finale del 
progetto). 

Adesso siamo pronti ad iniziare 
un altro calcolo. Vogliamo calcola- 
re un insieme di valori, chiamato 
T2(I), per tutti gii I da 1a n, mali 
calcoleremo in ordine inverso. 
Cioè, calcoleremo prima T2(n), 
poi T2(n-1) e così via, fino a 
‘TQ01). 

Il valore T2(I) è il tempo massi- 
mo entro il quale si deve finire il 
lavoro numero I per non causare lo 
slittamento dell’intero progetto. 
Un attimo fa abbiamo visto che l’o- 
perazione numero 8 può essere ef- 
fettuata nel diciottesimo o nel di- 
ciannovesimo giorno, e deve essere 
conclusa il ventunesimo o il ventu- 
duesimo giorno. Quindi T2(8) sarà 
22, perché il ventiduesimo giorno è 
il tempo massimo entro il quale 
può finire il lavoro numero 8. 

Prima di passare al calcolo di 
T2(I), vediamo a cosa ci serve. Nel 
nostro esempio abbiamo T1(8)=18 
e T2(8)=22. Cosa significa? Signi- 
fica che l’operazione numero 8 non 
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può iniziare prima del diciottesimo 
giorno, e deve finire entro il venti- 
duesimo. Quindi, questa operazio- 
ne non può richiedere più di quat- 
tro giorni. Infatti abbiamo suppo- 
sto che richieda tre giorni (T(8)=3) 
e può slittare di un giorno, ma non 
di più (altrimenti slitta l’intero pro- 
gramma). In questo caso l’opera- 
zione numero 8 non è critica. Se il 
programma dicesse che essa richie- 
de quattro giorni — cioè se T(8) fos- 
se uguale a 4 — sarebbe critica. Così 
appena calcoliamo T2(I) per tutti 
gli I, sappiamo immediatamente 
quali sono le operazioni critiche. 

Per calcolare T2(I), consideria- 
mo tutti i B(I,J), con J maggiore di 
I, tali che B(I,J)=1. Se non ci sono 
restrizioni (come, nelle nostre ipo- 
tesi, avviene per l’ultima operazio- 
ne del progetto, cioè I=n) ponia- 
mo T2(I) uguale a T1(I1)+T(I). Co- 
sì l’ultimo lavoro deve iniziare al 
tempo T1(I) e richiede tempo T(I), 
e perciò deve terminare entro il 
tempo T1(1)+T(I) per far sì che 
l’intero progetto sia completato nel 
tempo minimo tenendo conto dei 
dati che abbiamo fornito per tutti i 
vari lavori. 

Se c'è un B(I,J) che soddisfa la 
condizione sopra, allora sottraiamo 
T(J) (il tempo richiesto dal lavoro 
J) da T2(J), il tempo massimo in 
cui quel lavoro può terminare af- 
finché il progetto rispetti i tempi 
del programma. Poiché i valori di 
T2(I) vengono calcolati in ordine 
inverso, possiamo supporre che 
T2(J) sia già stato calcolato. Nel 
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5 GIORNI 3 GIORNI 2 GIORNI 2 GIORNI 

Y1=0 T1=5 T1=18 T1=20 
® > © > © > © 
2 GIORNI 7 GIORNI 3 GIORNI 0 GIORNI, 
Ti:9 Tis1i T1=18 Ti=22 
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e ———>»>>+—6 
4 GIORNI 5 GIORNI 
T1=0 T1:4 


Fig. 2. Per ogni lavoro nella figura 1, T1 (il minimo tempo in cui si può 
iniziare ogni operazione) può essere calcolato secondo i tempi ipotetici di 


realizzazione dei lavori precedenti. 
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5 GIORNI — 3 GIORNI 
Ti=0 T1=5 
T2:6 T2:9 
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2 GIORNI 2 GIORNI 
T1+18 T1*20 
T2* 20 T2a=22 


® > ® 
2 GIORNI 
T1=9 
Ta*il 
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4 GIORNI 
T1=0 
T2=4 


5 GIORNI 
T1=4 
T2=9 


7 GIORNI 
Tisil 
T2=18 


—»- 0 
3 GIORNI 
Ti =18 
T2»22 


> © 

0 GIORNI 
T1=22 
T2»22 


Fig. 3. Per ogni lavoro nel progetto di figura 1 possiamo calcolare T2 (il 
tempo massimo entro il quale bisogna terminare quel lavoro per non far 


slittare l’intero progetto). 


progetto mostrato in figura 2, otte- 
niamo il valore di T2(9) sottraendo 
T(11) da T2(11), perché l’operazio- 
ne 10 non richiede alcun tempo, ed 
il risultato è 22. Troviamo T2(7) 
sottraendo T(9) da T2(9), ed il ri- 
sultato è 20. 

Si noti il significato di quest’ulti- 
mo risultato. Il nono lavoro richie- 
de due giorni, e deve essere conclu- 
so entro il ventiduesimo giorno. 
Ciò significa che deve iniziare pri- 
ma del ventesimo. Se guardiamo in 
figura 2, vediamo che quindi l’ope- 
razione numero 7 deve essere con- 
clusa entro quel giorno. Analoga- 
mente, calcoliamo T2(8)=22. 

Infine, se c’è più di un B(I,J) che 
soddisfa la condizione, allora effet- 
tuiamo più volte il calcolo e sce- 
gliamo il risultato minore. Ad 
esempio, se calcoliamo T2(6) nella 
figura 2, abbiamo: 


T2(7)=20 
T(7)=2 
T2(7)-T(7)=18 


T2(8)=22 
T(8)=3 
T2(8)-T(8)=19 


Ciò significa che l’operazione 
numero 6 deve terminare entro il 
diciottesimo giorno, ed anche en- 
tro il diciannovesimo.Perciò, la da- 
ta di scadenza per noi dev'essere il 
diciottesimo giorno. Possiamo no- 
tare da vari punti di vista che il cal- 
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colo di T2 è il contrario di quello di 
TI: procediamo a ritroso; conside- 
riamo B(I,J) al posto di B(K,I); 
dobbiamo avere J maggiore di I, 
non più K minore di I; e, se ci sono 
più conti da fare, assumiamo il ri- 
sultato minore, invece del maggio- 
re. 


Per accelerare un 
progetto, dobbiamo 
accelerare una attività 
che giace su tutti i 
percorsi critici. 


I valori risultanti di T2(I), per 
ogni I, sono mostrati nella figura 3. 
Ora possiamo prendere in conside- 
razione T1(I) e T2(I), per tutti gli 
I, e calcolare quali sono le opera- 
zioni critiche. Come abbiamo già 
notato, il lavoro numero I è critico 
se T2(1) - T1(I) = T(I); altrimenti 
non lo è. Le operazioni critiche 
nella figura 3 hanno i numeri 2, 4, 
5, 6, 7,9 e 10. Quelle non critiche 
sono 1,3 e 8. 

Ora abbiamo la risposta al pro- 
blema del manager, in questo caso: 
i lavori 1, 3 e 8 non devono essere 
accelerati, perché non influiscono 
sul tempo d’esecuzione del proget- 
to. D'altra parte, uno di questi tre 
lavori può slittare di un giorno sen- 
za modificare il tempo totale del 
progetto. (In effetti possono farlo 


le operazioni 1 e 8 oppure le ope- 
razioni 3 e 8, ma non sia la 1 che la 
3.) 

Le operazioni critiche giacciono 
tutte su un cammino che va dall’i- 
nizio alla fine del progetto. Lo si 
chiama percorso critico. In genera- 
le, in un progetto potrebbero es- 
serci più percorsi critici. Se una 
operazione è critica, cioè se si tro- 
va un percorso critico, essa non 
può slittare nel tempo senza pro- 
trarre la durata complessiva del 
progetto. D’altro canto, non è det- 
to che accelerando una particolare 
operazione si riduca il tempo tota- 
le: ciò avviene solo se essa giace su 
tutti i percorsi critici. 


Considerazioni sulla codifica 


Se il numero totale di operazioni 
è così grande che non riusciamo ad 
introdurre tutti gli elementi della 
matrice B(I,J) nell’area di memo- 
ria disponibile, possiamo usare il 
seguente trucco. Poiché ogni ele- 
mento B(1,J) è o 0 o 1 (la matrice 
B viene spesso chiamata boolea- 
na), possiamo inserire ogni ele- 
mento in un solo bit di una locazio- 
ne di memoria. Su una macchina a 
8 bit, lavorando in linguaggio as- 
sembler, rappresenteremo B(I,J) 
dividendo prima J per 8 ed otte- 
nendo un quoziente K ed un resto 
L. Quindi potremmo memorizzare 
B(1,J) nell’L-esimo bit di B(I,K), e 
le dimensioni di B diventerebbero 
n per n/8 al posto di n per n. 

Per ottenere questa rappresenta- 
zione, usiamo una tabella ausiliaria 
P, tale che l’elemento P(1) è il bit 
numero zero (da destra — cioè l’u- 
no binario), l’elemento P(2) è il 
primo bit (cioè 2!), P(3) è il secon- 
do bit (cioè 2? o 4), e così via. Pos- 
siamo costruire quesha tabella po- 
nendo P(1)=1 e quindi 
P(I+1)=2+P(I), per I che va da 1a 
7. Per ottenere l’L-esimo bit di X, 
usiamo l’operatore logico OR tra 
P(L+1) e X, e lo memorizziamo in 
X; per controllarlo, usiamo l’ope- 
ratore AND di P(L+1) e X, e con- 
trolliamo il flag di zero. Con una 
macchina a 16 bit, facciamo la stes- 
sa analisi, sostituendo 16 a 8. 


In Basic, anche su una macchina 
a 8 bit, ogni intero è solitamente 
memorizzato in 16 bit. Se nella 
versione di Basic in questione non 
sono disponibili le funzioni logiche 
AND e OR, oppure queste non so- 
no presenti tra le funzioni di libre- 
ria, allora si può controllare l’L- 
esimo bit di X aggiungendolo a se 
stesso (cioè spostando di un bit a 
sinistra) N-1-L volte, e guardan- 
do se il risultato è negativo o no. 
Possiamo ottenere l’L’esimo bit di 
X aggiungendo P(L+1) ad X, pur- 
ché si sappia che questo bit è libero 
(controllandolo come sopra). 


Approfondimento 


Troverete ulteriori dati sui per- 
corsi critici e sulle operazioni criti- 
che in Fundamentals of Data Struc- 
tures di Ellis Horowitz e Sartaj 
Sahni. Gli autori descrivono due 
modelli grafici di un progetto — il 
modello AOV (activity of vertex), 
dove ogni vertice di un grafo come 
quello di figura 1 corrisponde ad 
un lavoro, ed il modello AOE (ac- 
tivity on edge), in cui i lavori sono 
rappresentati dagli archi che colle- 
gano i nodi. L'algoritmo del per- 
corso critico che riportano gli auto- 
ri si basa sul modello AOE, men- 
tre quello che abbiamo descritto 
qui vale per il modello AOV. Gli 
autori discutono anche un algorit- 
mo (chiamato ordinamento topolo- 
gico) che serve per rinumerare tut- 
te le operazioni, nel caso in cui la 
numerazione assunta non soddisfi 
la proprietà fondamentale di svi- 
luppare tutte le operazioni del pro- 
getto secondo il numero d’ordine. 
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PICCOLI ANNUNCI 


Hardware 


Software 


Vendo Atari 400 + registratore Atari 410 (vero affare) 
L. 800.000 vendo stampante Texas PC100C ancora 
in garanzia L. 200.000 

Luciano Medoni - Via Caboto. 5 - 30035 Mirano (VE) - 
Tel. 041/431443 


Scambio software per VIC 20 - vendo ZX80 + 16 
Kbyte RAM + alim. + cavi + garanzia da convalidare 
+ istr. bilingue - assemblato in fabbrica - Vinto ad un 
concorso L. 300.000 usato 10 giorni. 

Amos Aimi - Via Zanella. 11 - 43015 Noceto (PR) 


Vendo Sinclair ZX-81 16 Kbyte RAM alimentatore e 
documentazione L. 400.000 non trattabili. 

Contatto possessori Texas TI-99/4A scambio espe- 
rienze e programmi 

Salvatore Sbacchis - Via Don Giovanni Minzoni. 2/E - 
90143 Palermo - Tel. 091/547670 


Cambio/vendo programmi per VIC 20 vendo cas 
setta con 5 giochi per VIC 20 L. 15.000. Per VIC 20 
vendo cass. con equo canone + isolamento termico 
L. 15.000 

Maurizio Mellone - Via Sabbionara. 9 - 36061 Bassa- 
no del Grappa (VI) - Tel. 20015 


Vendo 64 Kbyte RAM Memotech (G.B.C. - MI) a L 
300.000 causa prematura scomparsa dello ZX81. Te- 
lefonare ore 8-14 escluso la domenica 

Rolando Magro - Via Sclavons, 302 - 33084 Corde- 
nons (PN) - Tel. 0434/26278 


Atari Club per scambio programmi, più di cento pro. 
grammi. animazione grafica. musica. games, uno più 
favoloso dell'altro scrivetemi per saperne di più. W gli 
ataristi!! 

Marco Rosati - Via Giovanni XXIII - 10040 Caprie TO) 


Vendo VIC 20 + reg. C2N + esp. 16 Kbyte a L 
800.000 intrattabili o cambio con fotocamera Reflex 
Olympus OMZN eventualmente Winder + tele 135 
conguaglio 

Roberto Orsucci - Via Pieve, 96 - 55041 Camaiore 
(LU) - Tel. 0584/68222 


Vendo Atari 400-800 cambio software originale 
americano utility e game su disco o cassetta. Scrivere 
0 telefonare ore pasti a 

Marcello Guidotti - Via Cutilia, 27 - 00183 Roma - Tel 
06/778896 


Vendo x ZX80-81 espansione memoria 4-16-32 
Kbyte gen. di caratteri programm Slow per ZX80 sott 
ware su cassette o listati richiedere elenco pagamen- 
to anticipato o contrassegno 

Alberto Bassi - Via M. Bonavita - 47100 Forlì - Tel 
(0543) 24345 


Vendo DAI 48 Kbyte + manuale italiano e inglesi 
processore aritmetico (anche a parte) + cavi + cas 
setta programmi Bit Shop 7 mesi di garanzia L 
1.500.000 (P.C.) + 300.000 (AMD 9511) 

Lorenzo Ambri - Via Guido Guerra. 12 - 50126 Firenze 
- Tel. 680940 


Cambio programmi per Apple Il e TRS/80, gestio 
nali. utilities. giochi vari. Inviare lista, invierò la mia 
Giovanni Carrella - Via Felline, 11/C - 84100 Salerno 
- Tel. 089/354854 


Desidererei comprare software impianti termici (spe- 
cificare caratteristiche e prezzo) riscaldamento e 
analisi sismica spaziale completo di verifica (prezzo e 
caratteristiche) 
Edoardo Cardone 
Severo - Tel, 27447 


Via S. Matteo. 36 - 71016 Sar 


Cambio programmi di tutti | generi per Apple Il o 
vendo a prezzi di sole spese spedizione e di support 
magnetico. Inviare lista a cui risponderò con la mia 
Adriano Gugliucci - Viviani - Via Massari, 100/( 
10148 Torino - Tel. 011/2201756 


Vendo cassetta programmi gioco per VIC 20 e altr 
programmi chiedere lista a 

Claudio Marchiondelli - Via Libertà. 3 
no (UD) 


33010 Raspa 


Cambio/vendo software per Apple || 
Marco Montresor - P.zza C Alberto, 25 
gio S/M (Verona) 


37067 Valeg 


| PICCOLI ANNUNC 


Sei un lettore di PERSONAL-SOFTWARE e vuoi entrare in contatto con tutti gli altri lettori per comperare, cambiare o 
| vendere software? Spedisci questo tagliando a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 
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2G.P SISTEMA 


via soperga, 36 - 20127 MILANO - 02/2842850-2842860 


La famiglia di personal computer più completa 
attualmente sul mercato per imprenditori, professionisti, 
tecnici, amministratori. 

Vi aspettiamo per fornirvi la più ampia documentazione 
e le più complete dimostrazioni. 


SHARP COMPUTERS 


I NOBEL DELL'INFORMATICA 


PIEMONTE - GENERAL COMPUTERS - Torino - 011/835156 - COMPDATA - Ivrea - 0125/49069 - OLIVIERI & GOVERNA - Alessandria - 0131/ 
442646 - LIGURIA - REM KARD ITALIA - Genova 010/884971 - TECNOSYSTEM - Sanremo - 0184/884794/5 - LOMBARDIA SHARCO (di MI- 
GLIORI ROBERTO) - Gavirate - 0332/745526 - ADEL - Brescia - 030/221674 - Peschiera Borromeo - 02/5473023 - GAME - Treviglio - 0363/ 
40803 - ENNE COMPUTER - Portichetto di Luisago - 031/920136 - C.E.E. - Vigevano - 0381/81555 - DATA STUDIO (di SERGIO CAVENAGHI) - 
Burago di Molgora - 039/663736 - LINEA UFFICIO (di ANNUNZIATA ELIO) - Cremona - 0372/24364 - P.G.P. SISTEMA - Milano - 02/2842860 - 
COMPUTER HOUSE - Monza - 039/362618 TRE VENEZIE - SIGMA SYSTEM - Udine - 0432/26992 - NTERSOUND (di COPPETTI FRANCO) - 
Brunico - 0474/21282 - COMMERCIALE SISTEMI Thiene - 0445/368824 - MINI SYSTEM - Bolzano -0471/32270 - PENTA - Preganziol - 0422/938535 - 
PINARELLO - Padova - 049/754830 - SYSTEM COPY - 35100 Padova - 049/44982 - PINO ANDREA - Cerea - 0442/82790 - TECNOSYSTEM - Vi- 
cenza -0444/31152 - EMILIA ROMAGNA - MARCHE - ABRUZZO - ADRIATICA COMPUTER - Senigallia - 071/62516 - GIMAR SISTEMI - Sil- 
vi Marina - 085/932739 - ZANICHELLI GIORGIO - Reggio Emilia -0522/90250 - M.R.P. TECNOSISTEMI - 40069 Zola Predosa - 051/751662 - RO- 
DAN &C.- Civitanova Marche - 0733/770386 - ROGANTI F.LLI - Montecassiano -0733/59231 TOSCANA - ELECON - Piombino - 0565/33112 - 
MNEMO COMPUTERS - Firenze - 055/4378652 - TECNOCOPY - Firenze - 055/352801 - LAZIO - EUROCOM - Roma - 06/7574487 - TECNO- 
MEC - Roma - 06/484998 - CAMPANIA - PUGLIE - CALABRIA - GENERAL COMPUTERS - Torre del Greco - 081/8815124 - L. & L. COMPU- 
TERS - Bari - 080/410167 - COMPUTER SUD - Lecce - 0832/42413 - ATLANTIC - Reggio Calabria - 0965/4467] - G.M.MARASCIO COMPUTER- 
LINE - Montauro - 0967/48207 - SICILIA - SARDEGNA - SIFIDATA MANAGEMENT - Catania - 095/4388178 - A.E.P. COMPUTERSSYSTEM 
- Sassari - 079/276364 - VIMAR - S. Agata di Militello - 0941/702771. 
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L arte di programmare uu 


La programmazione discendente 


Nino Tonolli 


Questa rubrica conterrà raccomandazioni 

su come scrivere i programmi: non solo 
consigli tecnici, ma soprattutto consigli di stile, 
sul modo di affrontare i problemi e trasformarli 
‘in algoritmi, in buoni algoritmi e poi in buoni 
programmi. Questo mese proseguiamo con altri 
“proverbi di Arsac”, le raccomandazioni del pro- 
fessore francese per acquisire “buone abitudini 
di programmazione”. 


L *arte di programmare con stile ed efficacia. 


6. Un solo ciclo alla volta 


Separate le difficoltà. Una sola alla volta (ce 
n’è a sufficienza). L'esempio del mese scorso 
mostra come fare. È vero che servirà un ciclo per 
calcolare il valore del polinomio, ma ci si è solo 
occupati del ciclo più esterno. Ancora non si sa se 
servirà un ciclo per le altre azioni che si sono 
dette. Ciò sarà più chiaro con uno studio ulterio- 
re. 

Il meccanismo dei cicli non è complicato, ma i 
rischi di errore sono numerosi: errata inizializza- 
zione, errato computo dei passi, errato test di 
uscita... Allora, non mescolate le difficoltà: una 
sola alla volta. E sempre possibile, grazie alla 
programmazione discendente. 


7. Fondate tutti i cicli su una affermazione dello 
stato delle variabili 


Un ciclo è la ripetizione di una azione. È la 
forma che prende, in programmazione, il ragio- 
namento per ricorrenza. Operate dunque come 
avete l’abitudine di fare: al centro di tutto vi è 
l’affermazione: suppongo di essere arrivato ad 
uno stato tale che... Si guarda se per caso non sia 
lo stato finale. Se sì, si esce dal ciclo. Altrimenti, 
si cerca come ritrovare lo stesso stato, più vicino 
alla soluzione. 

Invece di restare nel vago, prendiamo il calco- 
lo del valore y del polinomio in x 


y= È ap) 
p=0 


Prima constatazione: questo calcolo non si può 
fare in un solo passo. Bisogna dunque spezzare la 
somma. 

Supponiamo che la si spezzi verso il basso. Non 
ho ancora calcolato y, ma solamente 


2= È ap) 
p=i 

Ci vuole dell’immaginazione per fare questa 
ipotesi. Ma l’immaginazione è necessaria in in- 
formatica come in tutte le scienze. (Fortunata- 
mente, del resto. La macchina ha già molta in- 
fluenza sull’uomo. Cosa ci resterà se ci si leva 
l'immaginazione...) 

Domanda: z è il risultato cercato? Risposta: sì, 
se i = 0. Da cui un pezzo di programma, ancora 
in programmazione discendente: 


se î = 0 allora fine 


Altrimenti, bisogna estendere la somma verso 
i = 0, ed il modo più semplice è aggiungere i—1. 
Si ottiene 


zi=t apri! = }) a(p)xP7i+1 + ali-1) 
pzi 


p=i-1 
ordinando questa somma 
2' = (È ap)? )x + ali-1) = zx+a(i-1) 
d=i 


Possiamo ora proseguire con la costruzione del 
programma. Metterò tra virgolette dei commenti 
sullo stato delle variabili. 


«7 = Y a(p)x?"! se i = 0 allora fine “2 = y” 
fa 
zez'xtali-1] “= È part» 
pe 


Non abbiamo ritrovato l’ipotesi di ricorrenza, i 
è stato cambiato in i-1. È sufficiente cambiare 
i-1 ini per ritrovarci al punto di partenza: 


H: “= È a(p)?"” se i=0 allora fine 
ta 


zez'xtali1]  “z = a(p)xe it!» 


si 


ici1 


lie s a(p) 27!” 
p=i 


"(YI DIDILITTTTIDADITINATATAPANIODO VINILE IA IEV TONO TO NIRO TONO VANETIBTO NOVO PII VOOR TAVIANI ATTORNO NINOOORO NEVI OOO ONDENNO RIS TN PARONA TE 
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Non esiste, in tingua italiana, un libro di testo così. Chiaro, completo, 
moderno, ma anche rigoroso e didattico. Sono alcuni tra gli aggettivi 
che costituiscono la prerogativa di questo volume. Per capire 
l'elettronica digitale bisogna avere delle solide conoscenze sui dispositivi 
a semiconduttore, soprattutto usati in circuiti di commutazione. 

E malgrado quest'analisi richieda una notevole complessità matematica, 
introducendo alcune semplificazioni è possibile mantenere la trattazione 
ugualmente rigorosa e ottenere approssimazioni pienamente accettabili 
Come trascurare poi gli amplificatori operazionali, che, se a rigore non 
rientrerebbero nella materia, però trovano larga applicazione in sistemi 
completamente digitali. E poi i circuiti integrati, finalmente spiegati e 
analizzati in tutti i loro aspetti. Dalla vecchia logica resistore-transistor 
(RTL), funzionale nella sua semplicità all'esemplificazione degli aspetti 
fondamentali, a quella a simmetria completamente (CMOS) 

Questo, però, dopo aver studiato un capitolo che, pur non richiedendo 
alcuna conoscenza preliminare, va a fondo dei concetti di variabile 
logiche, di algebra di Boole, di analisi di circuiti logici. E ancora. Via via 
nei vari capitoli: i flip-flop, i registri, e i contatori (sia sincroni che , 
asincroni), i circuiti logici atti ad eseguire operazioni matematiche, le 
memorie a semiconduttore (RAM, ROM, EPROM, ....), l'interfacciamento 
tra segnali analogici e digitali (multiplexer, circuiti sample and hold, 
convertitori d/a e a/d), i temporizzatori. Tutto con oltre 400 problemi, dai 
più semplici ai più sofisticati, in cui vengono presentati i circuiti tipici 
che si trovano nella pratica 

Un testo quindi non solo per gli specialisti e per gli studenti universitari, 
ma che si adatta magnificamente agli Istituti Tecnici. 

Un testo che, speriamo per gli studenti, la scuola non debba scoprire tra 
alcuni anni 


SOMMARIO 

Dispositivi Elettronici fondamentali; AMplificatori Operazionali e 
Comparatori; Circuiti Logici; Logica Resistore-Transistore e Logica ad 
Iniezione Integrata; Logica Diodo-Transistore; Logica Transistore- 
Transistore, Logica ad Accoppiamento di Emettitore; Porte MOS; | 
Flip-Flop; Registri e Contatori; Operazioni Aritmetiche; Memorie a 
Semiconduttore; Interruttori Analogici; Conversione Analogico- 
Digitale; Circuiti di Temporizzazione; Linee di Trasmissione; Problemi; 
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Per ordinare il volume utilizzare l'apposito tagliando inserito in fondo alla rivista. 


8. Utilizzate correttamente le istruzioni GO TO 


Non si va ad una istruzione per fare qualcosa, 
ma perché essa corrisponde ad una situazione già 
identificata, o per lo meno da identificare. Non 
pensate in termini di “quale azione devo ora 
intraprendere”. Questa è la morte del program- 
matore, la miglior ricetta per fallire. La domanda 
da porre è “a che punto sono?”. Se operate così 
non avrete alcun problema con questa istruzione. 
Troverete delle diramazioni per due ragioni: 
— mi trovo in uno stato già incontrato: vado là 
dove è stato trattato. Questo è il salto di ciclo. 
Nell’esempio precedente, ci si è arrestati pro- 
prio qui. Si era ritrovato lo stato H: quindi 
H: “= È a(p)?”  sei= 0 allora fine 
= 

zez*xta[i-1]; iti-1; vai a H 

— mi trovo in uno stato che non desidero per il 
momento trattare. Lo rinvio a più tardi, in un 
punto dove lo tratterò. Si tratta del salto in 
avanti, risultante in generale da una selezione 
(istruzione SE). Così, nell’esempio del poli- 
nomio, l’azione “finito” corrisponde allo sta- 


to z = y, risultato cercato. Lo rinvio in avan- 
ti: 


H: “2 = Î a(p)e7!” 
oi 


se i = 0 allora “2 = È a(p)x?” vai a B; 
fa 
zez*x+ta[i-1]; ici-1; vaia H 


B: yez 


9. Scrivete l’inizializzazione dopo il ciclo 


Avete fondato il vostro ciclo su di una afferma- 
zione: suppongo di poter raggiungere uno stato 
tale che... Avete determinato il caso in cui si 
tratta dello stato finale, altrimenti avete trovato 
un modo di avvicinare la soluzione ritrovando 
l’ipotesi di partenza. 

Ora cercate come ottenere questa ipotesi alla 
partenza: si tratta dell’inizializzazione del ciclo. 
Se avete lavorato in modo appropriato non avre- 
te scelta, né bisogno di immaginazione. Qui per 
esempio, come scegliere i per ottenere, senza 
calcolo 


2=d a(p)e' 
pri 
Se si prende i = n, la sommatoria comporta un 
solo termine, a(n)x"-" = a(n) 


Per partire, bisogna dunque scrivere 
in; z-a[n] 
H:sei= 0 vaiaB 
zez*xtali-1]; imi-1; vai a H 
Bi: yez 


GPS4 è il nome della nuova famiglia di elaboratori Gene- 
ral Processor: elaboratori perfetti, nati dalla esperienza 
della prima azienda italiana costruttrice di piccoli com- 
puter. 

I GPS4 sono tutti italiani: italiani nel progetto, italiani 
nella costruzione, italiani nel design, elegante ed essen- 
ziale come quello di un’auto sportiva di gran classe. Han- 
no una tastiera italiana, separata, davanti alla quale ogni 
dattilografa si trova subito a suo agio perché la Z, la W e 
la M sono al loro posto e perché, come in una calcolatri- 
ce, ci sono i tasti doppio e triplo zero. 

E sono italiani anche nella assistenza. 

Con i loro 128K RAM minimi (estendibili a oltre 200), 
due terminali collegabili e con una ineguagliabile biblio- 
teca di software di base ed applicativo, i GPS4 rappre- 
sentano lo ‘‘status of the art’’ della moderna miniinfor- 
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matica, per la quale rappresentano e rappresenteranno 
negli anni futuri un importante punto di riferimento. 
Una raccomandazione: non fatevi influenzare dallo sty- 
ling: i GPS4 non sono semplicemente i più belli; sono 
semplicemente 1 migliori. 


Alcuni OEM General Processor 
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Latina: Contax: 0771/22.503 -Napoli: CompuSystems: 081/46.36.02 - 
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Come riprodurre una 
immagine in bianco e 
nero con toni sfumati? 


diJ.S. Browning 


La riproduzione di questo articolo è 
stata concessa da Creative Compu- 
ting. 

Traduzione di Renzo Pevarolo 
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PERSONAL SOFTWARE 


Immagini digitali 
di mezzetinte 


olti programmatori dilet- 
Mi interessati all’elabo- 
razione di immagini digita- 


li vengono frustrati dai limitati in- 
tervalli di intensità disponibili sui 
dispositivi di output sui quali devo- 
no visualizzare le proprie immagi- 
ni. Le tecniche per risolvere questo 
problema sono dette “metodi delle 
mezzetinte”. 

In origine i metodi delle mezze- 
tinte vennero sviluppati per la 
stampa di fotografie in bianco e ne- 
TO su carta, usando sfumature di 
inchiostro nero. L'obiettivo è di vi- 
sualizzare strutture di bianco e ne- 
ro che diano l’impressione di inten- 
sità intermedie. 

Fotograficamente, ciò si realizza 
usando un retino da mezzatinta. 
Esempi di fotografie a mezzatinta 
si trovano nella maggior parte dei 
giornali e delle riviste. 

Un problema simile sì presenta 
quando si desidera visualizzare una 
immagine digitale su un dispositivo 
di output “a due livelli”. 

In questo caso si fa qualcosa di 
simile alla mezzatinta analogica. Si 
usa un computer per generare delle 
strutture che possano essere visua- 
lizzate sul dispositivo in modo da 
dare l'impressione di intensità in- 
termedie. 

In questo articolo, presento di- 
versi metodi di mezzatinta, e darò 
esempi di applicazione dei metodi 
ad una immagine. Nella discussio- 
ne che segue, userò queste notazio- 
ni: 


G(X,Y) = livello di grigio del pi- 
xel (elemento di immagine) X,Y 
T = livello di grigio di soglia 


Soglia semplice 


Usando il metodo della soglia 
semplice, se G(X,Y) è minore di 
T, (X,Y) viene visualizzato nero. 
Altrimenti (X,Y) viene visualizzato 
bianco. La figura 1 mostra un 
esempio di questo metodo. 

Il metodo della soglia semplice 
non mostra parecchi dettagli pre- 
senti nell’immagine perché la deci- 
sione di visualizzare o bianco o ne- 
ro introduce degli errori. 


Soglia a spirale 


Con il metodo della soglia a spi- 
rale, definiamo una matrice soglia 
a spirale M,N come segue: 

T(1,I) ha un certo valore 

T(1,1+1) è minore di T(1,1) 

T(I-1,1+1) è minore di T(1,1+1) 

T(1-1,1) è minore di TA-1/1+1) 
T(1-1,I-1) è minore di TA1-1,1) 

T(1,I-1) è minore di TA-1,1-1) 

e così via. T(I,I) è il centro della 
matrice T. 

L’immagine viene ripartita in 
sottoimmagini M per N, ed ogni 
componente della matrice sottoim- 
magine viene confrontato con il 
corrispondente componente della 
matrice soglia a spirale. Se G(1,J) è 
minore di T(1,J), (1,J) viene visua- 
lizzato nero. Altrimenti (1,J) viene 


4 

Questo articolo didattico descrive sette metodi per produrre immagini digitali di mezzetinte. I programmi 
esemplificativi sono in Fortran. Avremo potuto tradurli facilmente in Basic, ma abbiamo scelto di lasciarli in 
Fortran per permettere un secondo livello di apprendimento nella lettura dell’articolo. Il Fortran ha più 
somiglianze con il Basic di questo comunemente non si pensi. Per esempio il seguente ciclo DO Fortran può 
essere facilmente tradotto in un ciclo FOR Basic. 


DO 20 J=1021, 1024 
G(1)=0 15 GA)=0 
20 CONTINUE 20 NEXT J 


Il Fortran permette che i limiti del ciclo DO siano definiti da variabili semplici o da semplici espressioni. Il 
Basic talvolta non permette espressioni. 


DO 20 M=K-1,K+1 


10 FOR J=1021 TO 1024 


10 K1=K-1: K2=K+1 
20 FOR M=KI1 TO K2 


L’istruzione IF logica nel Fortran è simile a quella del Basic. 
IF(G(M,N).LT.T(M,N)) G(M,N)=1 10 IF G(M,N) < T(M,N) THEN G(M,N)=1 


Un’istruzione DATA Fortran può essere tradotta in Basic con una coppia READ/DATA o con istruzioni 
di assegnamento LET. 


INTEGER T(5) 


10 DIM T(5) 
DATA T/7,9,11,13,15/ ° 


15 FOR I=1 TO 5 

20 READ T(1) 

25 NEXTI 

30 DATA 7,9,11,13,15 
oppure 


10 T(1)=7: T(2)=9: T(3)=11 
15 T(4)=13: T(5)=15 
Per le variabili a due dimensioni, in una istruzione DATA si può inserire un ciclo di DO implicito; per 
esempio: 
INTEGER P(2,5) 


DATA (P(1,1),1=1,5)/4,5,6,7,8 
DATA (P(2,1),1=1,5)/13,14,15,16,17 


10 DIM P(2,5) 

15 FOR I=1 TO 5 

20 READ P(1,1),P(2,1) 

25 NEXT I 

30 DATA 4,13,5,14,6,15,7,16,8,17 


Questi suggerimenti permettono di convertire le routine dell’articolo in Basic. 


i 


visualizzato bianco (figura 2). In 
Fortran abbiamo per esempio: 


SUBROUTINE SPIRAL 
Te 


COMMON 61102 


IFO(GCM,NY.LT.TM-F43,NEL4TI) B(M.MS1 
c PIXEL BIANCO 
IF(GOM,N).GELTIM-A4 +3, N-L+)) G(MM=d 
10 CONTINUE 
è AZZERA 1 L NON USATI 


1024 


30 CONTINUE 
RETURN 
END 


Il metodo della soglia a spirale 
dipende dalla continuità dell’imma- 
gine, cioè G(X,Y) adiacenti sono 
quasi uguali. Il metodo produce un 
“punto” le cui dimensioni dipendo- 
no da G(X,Y). Inoltre, il metodo è 
abbastanza trasparente ai cambi re- 
pentini in G(X,Y) dovuti ad uno 
spigolo. 


Soglia a rettangolo 


Per utilizzare il metodo della so- 
glia a rettangolo, definiamo un vet- 
tore soglia lungo K dove i vari T 
sono distribuiti casualmente ed 
hanno pochi fattori comuni. L’im- 
magine è suddivisa in sottoimmagi- 


ni M,N con MN=K. Ogni compo- 
nente della sottoimmagine è con- 
frontato con un componente del 
vettore soglia. La corrispondenza 
tra M, Ne K è definita evitando 
una trama eccessiva. 

Per esempio: 


SUBROUTINE RETTANG 
INTEGER T(25),G 


170,210, 


È PIXEL BIANCO 
IF_(G(1,3).GE.T(IT)) G(1,J)=0 
e SCELTA DI T 
IB=IB+1 
IF (IB.GT.25) IR=1 
IT=IR 


10 CONTINUE 
RETURN 
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Fig. 1. Simple Threshold Method. 


Come il metodo della soglia a 
spirale, il metodo della soglia ret- 
tangolare è trasparente ai cambi 
repentini in G(X,Y) dovuti a spi- 
goli. Vedi la figura 3. 


Modulazione casuale 


Nella modulazione casuale, un 
generatore di numeri pseudocasua- 
li produce un segnale usato per 
modulare G(XY). 

Se G(X,Y)+T*(1-2*R) è mino- 
re di T, (X,Y) viene visualizzato 
nero. Altrimenti, (X,Y) viene vi- 
sualizzato bianco. L’output del ge- 
neratore di numeri casuali è R ed è 
compreso tra 0 e 1 con media 0.5. 
Nell’esempio (figura 4), il genera- 
tore di numeri casuali è S=FRAC 
(S+x)**5, e il seme è 0.192743568. 

Il metodo della modulazione ca- 
suale introduce un rumore “sale e 
pepe” nella visualizzazione, che 
può essere inaccettabile. 


Modulazione sinusoidale 

Nella modulazione sinusoidale 
viene usata la funzione SIN(A*X) 
*SIN(B*Y) per modulare G(X,Y). 
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Se G(X,Y)+T*SIN(A,X)*SIN 
(B,Y) è minore di T, (X,Y) viene 
visualizzato nero. Altrimenti (X,Y) 
viene visualizzato bianco. 

Il metodo della modulazione si- 
nusoidale è simile alla tecnica della 
soglia a spirale. Le costanti di mo- 
dulazione, A e B, vengono scelte 
in modo da evitare una trama ec- 
cessiva. Nell’esempio (figura 5) le 
costanti di modulazione sono x/3. 


Distribuzione degli errori 


Il metodo di distribuzione degli 
errori registra gli errori che vengo- 
no introdotti dalla soglia semplice 
e li distribuisce ai pixel adiacenti. 


SUBROUTINE DISTERR 
INTEGER G,T 
COMMON G(1024,1024),T 
DO 10 I=1,1024 

IP=I+1 


IF (IP.GT.1024) IP=1 
DO 10 I=1,1024 
J=1024-K+1 
JM=d-1 
DISTRIBUZIONE ERRORE 
IF_(JM.LT.1) JM=1024 
NERO=0 
IF {G(1,3).LT.T) ERROR=6G(1,J) 
BIANCO=255 
IF_(6(1,3).GE.T) ERROR=G(1,J)-255 
DISTRIBUZIONE ERRORE A_DESTRA 
B(IP,J)=G(IP,J)+3. BERROR/8. 
DISTRIBUZIONE ERRORE SOTTO 
G(1,JM)=G(1,JM) +3. BERROR/8. 
DISTRIBUZIONE ERRORE IN DIAGONALE 
B(IP, JM) =G(IP, JM) +ERROR/4. 

10 CONTINUE 
RETURN 
END 


nooonono 


Fig. 2. Spiral Threshold Method. 


Man mano che l’errore si propaga, 
nell'immagine vengono introdotte 
strane strutture. 

Nell’esempio (figura 6), l’errore 
è distribuito come seguente: 3/8 al- 
la destra di (X,Y), 3/8 sopra (X,Y) 
e 1/4 lungo la diagonale. 


Struttura 


La tecnica della struttura usa 
K+1 matrici di KxK punti per vi-. 
sualizzare K+1 livelli di grigio. Per 


SUBROUTINE STRUTTURA 
INTEGER P(10,9),G,T 
COMMON G(1024, 1024) 

DATA (P(1,1),1=1,9)/9#0/ 
DATA (P(2,1),1=1,9)/4£0,1,4%0/ 
DATA (P(3,1),1=1,9)/4%0,2%1,3#0/ 
DATA (P(4,1), 9)/0,1,2X0,2: 


DATA (P(5,1), 
DATA (P(6, 1); 
DATA (P(7,1), 
DATA (P(8,1), 
DATA (P‘9,1), 
DATA (P(10,1) 
DO 10 I=1,341 
K=183-1 

DO 10 J=1,341 
L=383-1 
T=60K, L) /26 


+90 /0,7%1, 
+9) /881,07 
1,90/9%1/ 


ci, l+i 
10 G{M,N)=P(10-T,M-k+2+"8 (N-L+1)) 
c AZZERAMENTO FIXEL NON USATI 
J=1024 


20 


PCI, J)=0 
CONTINUE 
RETURN 
END 


E 


DI 


Fig. 4. Random Modulation Method. 


I tra 0 e K, K-1 dei K punti sono 
neri e I bianchi. Le strutture ven- 
gono scelte in modo da evitare una 
trama eccessiva quando vengono 
messe una vicine all’altra. K+1 è 


molto spesso 10, in quanto dieci li- 
velli di grigio sono necessari per vi- 
sualizzare la maggior parte delle 
immagini naturali (figura 7). 


Fig. 6. Error Distribution Method. 


Conclusione 

Le figure da 1 a 7 sono esempi di 
applicazioni dei metodi per le mez- 
zetinte discussi. Le risoluzioni delle 
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immagini sono basse per meglio il- 
lustrare le differenze dei metodi. 
Molti altri metodi sono stati svilup- 
pati per far fronte a particolari si- 
tuazioni. 

In bibliografia potete trovare ul- 
teriori informazioni. 
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IL LIBRO 
Il sistema operativo CP/M è stato progettato per rendere 
semplice l’uso di un microcomputer. Questo libro vi 
renderà semplice l’uso del CP/M. (Le versioni esaminate 
del CP/M sono il CP/M 1.4-il CP/M 2.2. e'il nuovo 
sistema operativo multiutente MP/M) La maggior parte di 
utenti di microcomputer dovrà, infatti, un giorno o l’altro, 
fare ricorso al CP/M, disponibile su quasi tutti i computer 
basati sui microprocessori 8080 e Z80, come pure su certi 

Per ordinare sistemi utilizzanti il 6502. Il libro, senza presupporre 

i volumi utilizzate alcuna conoscenza di un calcolatore, inizia con la ù 

l'apposito tagliando crizione, passo-passo delle procedure di inizializzazione 

inserito infondo tema: accensione, inserimento dei dischetti, 

alla rivista, esecuzione delle più comuni operazioni su file, compresa la 
duplicazione dei dischetti. Prosegue con il PIP (programma 
di trasferimento dei file), il DDT (programma di messa a 
punto) e ED (programma editor). Per entrare sempre più, 
fornendo numerosi consigli pratici, all’interno del CP/M e 
delle sue operazioni, al fine di comprenderne appieno le 
risorse ed eventualmente dare gli strumenti per successive 
modifiche. 
SOMMARIO 
Introduzione al CP/M e all'MP/M- ratteristiche del 
CP/M e dell’MP/M-Gestione dei file con PIP-L'uso 
dell’editor-Dentro al CP/M e all’MP/M-Guida di 
riferimento ai comandi e ai programmi del CP/M e 
dell’MP/M-Consigli pratici-Il futuro-messaggi comuni di 


GRUPPO errore-tabella di controllo di ED-nomi dei dispositivi di ® 
PIP-riassunti dei comandi-parole chiave di PIP-parametri 7 
EDITORIALE 


di PIP-tasti di controllo per la digitazione dei comandi-tipi sl 
di estensione-lista dei materiali-organizzazione della stanza am 
del calcolatore-verifiche in caso di errore-regole di base ai 
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Libri di software anni 
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Tutti i termini dell’informatica 


Giuseppe Staluppi 


Il libro di cui parliamo in questo numero, 
non è di software, ma può interessare ugual- 
mente ai “softwaristi”. Si tratta di un dizionario 
trilingue, italiano, inglese e tedesco di termini 
dell'informatica. È stato compilato da un auto- 
re tedesco con l’aiuto delle tecniche informati- 
che più avanzate: i termini sono stati memoriz- 
zati elettronicamente, elaborati e selezionati se- 
condo i diversi aspetti linguistici mediante un 
calcolatore elettronico utilizzando il program- 
ma TEAM della Siemens AG di Monaco di Ba- 


viera e composti elettronic 
5 "i _ 
compositore DIGISET. mente con un foto 


Il dizionario è diviso 


i in tre i: i è 
una parte lessicografica parti: la prima è 


no, tedesco) ordinata di ge, en 
termini inglesi. Questa parte iomioi ion 
mazione terminologica compl Î 
; principali ‘ompleta composta dal- 
le voci principali (lemmi, traduzioni, si imi 
:ndicazioni A inonimi 
indicazioni del genere, spiegazioni) dai I , 
di, dalle abbreviazioni e dagli acroiimi riman- 
i La sete ia parte Sono invece due re- 
gictri Alfabeiici: rispettivamente dall'itatiano al. 
l'inglese e dal tedesco all'inglese. Queste due 
parti rimandano alle corrispondenti voci della 
prima parte. 

I settori trattati sono tutti quelli dell’informa- 
zione: hardware, software, elaborazione dell’in- 
formatica, organizzazione, micro-processori, 
minicomputer, midicomputer, elaborazione dei 
testi, tecnica circuitale e altri settori collaterali, 
come l’elettronica, la cibernetica, il controllo 
numerico. I termini riportati sono circa 15000. 

Abbiamo verificato a caso qualche voce. Bug 
è tradotto con errore di programmazione, pol- 
ling con interrogazione ciclica, editing con edi- 
tazione e reset con azzeramento. Ci sembrano 
buone traduzioni, che rispettano il senso più 
che la lettera del termine originale. Ci sentiamo 
quindi di consigliare questo dizionario a chi ha 
problemi di traduzione, ma anche a tutti coloro 
che sono interessati al linguaggio dell’informati- 
ca. Potrà essere utile per risolvere diversi pro- 
blemi lessicali, molto frequenti quando si è alle 
prese con un gergo in continua evoluzione. 


Otto VolInhals 
Dizionario di informatica 


Milano: Gruppo Editoriale Jackson, 1982 
905 pagine, 45.000 lire 


Alcuni confronti tra le traduzioni italiane e 
quelle tedesche. 

Software è naturalmente tradotto in italiano 
con software, ed anche in tedesco. Qui però ab- 
biamo anche immaterielle Ware che letteralmen- 
te significa “merce non materiale” e Program- 
mausriistung (dotazione di programmi). 

Interessante anche bus, che viene tradotto, ol- 
tre che con bus sia in italiano che in tedesco, 
anche con Sammelleitung in quest’ultima lingua 
(linea di raccolta). Record, resta record in italia- 
no, ma diventa Eintrag e Satz in tedesco (rispetti- 
vamente registrazione e composizione, blocco). 

Vediamo linkage editor: in italiano è correlato- 
re, oltre a numerose altre espressioni (legatore, 
programma di collegamento, ecc.), mentre in te- 
desco è Binder (legatore, appunto, usato anche 
per il rilegatore di libri). Anche interrupt resta 
così in italiano, ma diventa Unterbrechung in te- 
desco. 

Storage è memoria in italiano e Speicher in 
tedesco. Come si vede le lingue anglosassoni pre- 
feriscono parlare in termini di “magazzino”, di- 
versamente dall’italiano. 

Concludiamo rilevando come anche questa 
possa essere una chiave di lettura del dizionario: 
una analisi comparata delle varie voci nelle varie 
lingue, per vedere come l’influenza anglo- 
americana sia diversamente penetrata nei lin- 
guaggi nazionali, ed in ultima analisi per sceglie- 
re il miglior modo di usare i termini dell’informa- 
tica. 
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Cannonate 


L'obiettivo di questo gioco per una o due persone, è 
quello di colpire con un colpo diretto il cannone nemi- 
co. Il gioco è scritto con grafica in alta risoluzione 
usando differenti dislocazioni territoriali e differenti 
condizioni di vento ogni volta che si gioca. II livello di 
difficoltà può essere selezionato per adattarsi all'abilità 
dei giocatori. 


Come si gioca 


Il tuo Apple resterà occupato per alcuni secondi e 
poi ti mostrerà il campo di battaglia, le due posizioni 
dei cannoni e una bandierina. La bandierina è visualiz- 
zata sulla destra del video. La battaglia è combattuta 
(1) selezionando il numero di sacchi di polvere da spa- 
ro da caricare e l'angolo di alzo dell'arma, e (2) spa- 
rando con il cannone. 

La velocità del vento è visualizzata sulla parte bassa 
del video sotto la bandierina. La posizione della ban- 
dierina indica la direzione del vento. 

L'elaboratore selezionerà quale dei giocatori comin- 
cerà il gioco e il suo nome apparirà sulla destra per il 
proprio giocatore e sulla sinistra per il secondo gioca- 
tore. | turni sono dati alternativamente. 


A Dopo aver notato la velocità del vento, puoi sceglie- 
re di cambiare l’alzo o di caricare il cannone con un 
diverso numero di sacchi di polvere da sparo. 


® Per cambiare l’alzo: 
IMMISSIONE DA TASTIERA: Batti la lettera “A” alzo, 
seguito da un numero da due cifre (angolo), poi pre- 
mi “RETURN”. 
PALETTE: Ruota il controllo della paletta fino a 
quando ti appare la giusta angolazione sullo scher- 
mo. 


® Per cambiare il numero dei sacchi di polvere da 
sparo (velocità del proiettile): 
IMMISSIONE DA TASTIERA: Batti la lettera “P” (per 
polvere), seguito dal numero dei sacchi desiderato, 
poi batti “RETURN”. 
PALETTE: Muovi il controllo della paletta (che ti mo- 
stra l'angolo) fino ad andare oltre i 127 gradi. L’an- 
golo che ti apparirà sarà XXX. Premi il pulsante del- 
la tua paletta fino a quando ti apparirà il giusto nu- 
mero di sacchi. 
NOTA: Puoi usare la tastiera per cambiare il nume- 
ro dei sacchi, anche se stai giocando con le palette. 


B Quando è stato aggiustato l'angolo e l'arma è stata 
caricata con l’appropriato numero di sacchi di polvere 
da sparo, si potrà fare fuoco. 


® Per fare fuoco con il cannone: 
IMMISSIONE DA TASTIERA: Premere la lettera “F” 
(fuoco). 
PALETTE: Premere il pulsante della paletta, o pre- 
mere “F”. 


C La traiettoria del proiettile verrà segnata sul video e 
il luogo della caduta verrà indicato da un flash. Se il 
proiettile colpisce il centro dell'altro cannone, quest’ul- 
timo esploderà. 


D Se il proiettile colpisce il cannone avversario, il gio- 
catore vincente riceverà un punteggio basato sulla dif- 
ficoltà e sul numero di colpi che sono stati necessari 
per colpire. Se il proiettile manca il cannone avversa- 
rio, l'altro giocatore (se c'è) avrà il proprio turno. La 
media dei punteggi ottenuti da ogni giocatore è mo- 
strata sul video. 


E Se desisti dal colpire il cannone nemico, puoi comin- 
ciare un'altra battaglia premendo la lettera “K”. 


F Dopo che hai visto il punteggio puoi cominciare 
un'altra partita oppure finire il gioco in questo modo! 
IMMISSIONE DA TASTIERA: Premi la barra dello spazio 
per ricominciare il gioco oppure la lettera “F” per finire 
il gioco. 

PALETTE: Premi il pulsante della paletta 1, oppure batti 
la lettera “F”, come sopra. 

(NOTA: Una volta che hai finito il gioco, ritorni automa- 
ticamente al MENU). 


Note balistiche 


Un proiettile, sparato su un campo pianeggiante e in 
assenza di vento, raggiungerà la massima distanza 
con una alzo a 45 gradi. La presenza di vento e i disli- 
velli del terreno, porteranno a trovare distanze massi- 
me di tiro con angolazioni superiori ai 45°. 

Il raggio d'azione di un vero cannone varia da tiro a 
tiro anche se si userà lo stesso quantitativo di polvere 
da sparo, e la stessa alzo. 

Questa variazione è causata da lievi differenze nel- 
l'accensione della polvere da sparo, del proiettile, e da 
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altre piccole variazioni. Queste differenze sono simula- 
te dal programma. Se spari un proiettile che colpisce 
molto vicino all’obbiettivo, puoi sparare di nuovo senza 
nessun cambiamento. 

È quasi sempre possibile colpire l’obiettivo usando 
quattro sacchi di polvere da sparo. Comunque, gene- 
ralmente è meglio usare il minor numero di sacchi di 
polvere da sparo che permetteranno di raggiungere 
l'obiettivo, poiché ci saranno meno variazioni e meno 
effetti del vento. 


Possibili modifiche 


Il programma è scritto in BASIC e in linguaggio mac- 
china. | calcoli balistici, per trovare la traiettoia più rea- 
le possibile, sono scritti con una precisione di 4 byte. 
Anche con 4 byte di precisione e plottando i valori, i 
risultati sono molto sicuri. Si è usato un ciclo che ritar- 
da questi calcoli per avere una piacevole visione della 
traiettoia sul video. Se desideri cambiare la velocità del 
proiettile, puoi farlo in questo modo: 

Velocità del proiettile: Quando il programma è cari- 
cato e pronto per essere eseguito, puoi cambiare la 
velocità modificando i valori delle variabili che gover- 
nano la gravità e l'accelerazione. AC è la variabile ac- 
celerazione, e la trovi nella riga 8000. 

Il suo valore è ora posto a 0. Più grande è il valore di 
AC, maggiore è la forza “gravitazionale” del campo dei 
battaglia. Le altre variabili determinanti sono XY e YV 
(V per velocità). 

Sono definite nella linea 1 010. Puoi cambiare i loro 
rispettivi valori per modificare la velocità del proiettile. 


© REM IIUDOPOOSOPIDOOGO SCONO E WIRTRTEZZZEZ] 


PANMNUNATE 


PERSONAL. SOFTWARE 


+ 
, 
+ 
* 
VEFSIUNE AFFLE 11 * 
4 
x 
* 
Ù 


JOUUODOGOOOGOOOOODODOPOI OOO A 


GOSUE RO0O: BOTO 20 
Y = YV + AZ 
xv + W 
O AND OY < 160 THEN  HFLUI 
cp O OR X © 255 THEN F = 
RETURM 
O AMD Y 
PEER (GT + %) 


HELOT X,Y 
= 1: RETURN 


160 THEN 
THEN | 


* HIAB (14): FRINT 
HIAB (14): PRINT Si 
TO do: VTAB (Ds 
HTAB (*7): PRINT 


ARCO): 
FOR I 1 

: PRINT" "3 

: NORMAL 
VTAR 1 HIAB 16: 
HTAB 

NV “TT 


CAMMUNATE ": PRINT 
"DI": PRINT : HTAE 


INI 
: FRINT 
SCHAFER" 


Velocità del vento: Il gioco è scritto per cominciare 
con un vento fra —90 e +90. Queste velocità cambierà 
ad ogni colpo. La variabilità dipende dal livello di diffi- 
coltà che si è selezionato. Per rendere il gioco più faci- 
le o più difficile, puoi cambiare i limiti della velocità del 
vento nel seguente modo: 

Quando il programma è caricato e pronto per essere 
eseguito, cambi i limiti della velocità del vento nella ri- 
ga 80. Nella riga 80, troverai la seguente equazione: 


WV= INT(RND(1)*181)—90 


che controlla l'assegnazione iniziale della velocità 
del vento. 

Per cambiarlo a 121 (per esempio), devi modificare 
l'equazione così: 


WV= INT(RND(1)*243)-121 


dove 243 è 2 volte 121 + 1. 

Un cambiamento analogo deve essere fatto nella ri- 
ga 503. Il valore 110 (velocità massima del vento, de- 
ve essere più elevato del valore specificato nella linea 
80. Il valore 100, anche nella riga 503, deve riflettere 
questa stessa massima velocità. 

Precisione del colpo: Il gioco è scritto in modo tale 
che un proiettile fa centro se è dentro le 5 unità dal 
centro del cannone. La precisione del colpo sarà con- 
trollata nelle righe 1 200 e 1 210. La precisione può 
essere posta da 1 (quasi impossibile) a 9 (facile) passi 
dal centro. 

Per cambiare la precisione, cambia il valore 5 nelle 
linee 1 200 e 1 210 come desideri. 


AB (14): INFUT 

(DA O A 100)5 
100 THEN &£0 
VTAB (16): PRINT 


LO DI DIFFICOLTA” 
IF UL O Ok bl 


"PUANTI GIOCATORI? (1 0 
HTAB (27): GET NF: 
NE > 2 FHEN 70 

NP = NF : PRINT 
FOR I = O TO NF 

VTAB (IB + 2% I): 
GIOCATO! 1+1 
N& (1) EN 73 
IF LEN (N8(I)) > 10 THEN N$(1) = 
N$ 01) 19) 


PRINT NF:: IF MP 1 UR 


PRINT 


HTAB (1): FRINT “NOME 
INFUT O": “sN$ (13: IF 


LEFT 


3 HTAB (1): PRINT "TASTIERA 0 F 
3: GET AS: PRINT AS: IF 
GOTO 80 
30TO 80 
GOTO 76 
GACO) = 45:0A (0) = BACO: 0001) 
= RND (1) * 181) - 9 


INT € RND | 
(1) * 101) 


INT ( RND 


VTAB 12: HTAB Ll: FLASH + 
NTO, PREGO";: NORMAL 


PRINT “UN MOME 


CN 
|a) 


100 H 159 — INT € RND (1) % 1010 XV = (1.6 + RND (1) * .1) * COS (GA 
110 J = H- INT ( RND (1) * (H - 59)) ) * FO) * B(P):VY = (1.6 + RND (1) % GO 
125 FORP = 0 T01 21) & SIN (GA(P) * PC) £ EF) 
127 N = 159: IF K = F_THENN = H Ò IF F_THEN XV = - XV 
130 IF FP THEN 132 1143 4 = W / 15000 
131 IF NOT P THEN FOR I = 0 TO il: FOFE S&S 1144 X = GXX(P):Y = GY% 
T + I,N: NEXT I: GOTO 134 1146 GOSUB 2 
132 FOR I = 243 TO 255: POKE GT + 1,N: NEXT 00 IF ABS (GXZ(0) — X) < 5 THEN H = 0: GOTA 
I 1250 
134 S= 0 ABS (GX%(1) — %) < 5 THEN H = 1: GOTO 
135 M = 0: FOR I = 11 TO 127:11 = 1: IF P_THEN s 
11 = 255 -1 5 IF NOT K THEN 500 
136 IF NOT M THEN 144 IF X < 4 OR X > 255 THEN 500 
140 IF INT ( RND (1) % (((128 — T) / 16) + CALL 768 
1)) OR NOT (N — J) THEN 159 FOR I = 2 TO 0 STEP - 2: HCOLOR= T 
141 M = INT C RND (1) % 21) + 1:S = INT ( END HFLOT X.Y TD X — 4,Y - 3 TO X - 1,V - 


(1) * 6): IF NOT S THEN 147 TO X,Y - 6TO0X + 1,Y 


142 IF S = 5 THEN 159 ATO X.Y 
143 GOTO 147 FOR J = 0 TO 200: NEXT J 
144 IF S = 5 THEN 159 NEXT I 


145 IF NOT S THEN 147 


146 IF I - C INT CI / 5) % SO THEN 159 FOR I = 0 TO 10: CALI. 768:1 
147 L=1 (1) £ 60 - = Y-  RNE 
14B8N=N-L 
159 M = M- 1: POKE GI + II,M: NEXT © 1260 IF L1 < 0 THENLI 
1600 NEXT Po 1270 IF Li > 255 THEN LI Ss 
270 GOSUB 6000 1280 HFLOT X,Y TO L1,L2: NEXT I 
280 H= - 1 e 1290 IF Ho > — 1 THEN HTC NOT Hi = HT: NOI 
300 F INT ( RND (1) # 2) H +1 
500 P_= NOT F:NS = NS + 1 FOR I = 0 TO 1500: NEXT I 
So2. IF NOT NP THENP = % 1500 NS = (NS + 1) / (NF + 1): FORI = TO 
Wi = VIV + INT ‘© RMD € 4 iu NF 

7 Ue IF ABS CIV) n oi 1502 Li = O + VICO * (NF + 1) * 10) / N IH 
=> * SGN ‘WY): GOTO sot H=I10RHS= - 1 THENLI = © 
504. HOME 1508 PF(I) = (PP(D) £ (NT + 1) + LI / NT 


505. VTAB Di: HIAR 
HTAB 36: NORMAL © 
2: HTAE PRINT 
HTAB is PRINT "7 
1° HTAB 20: PRINT “"BN111 


1509 NEXT I 

1510 TEXT : HOME : FOFE 

1511 FOR I=0 TO NF:ZZ% 
1 THEN 228 = “0” 

1512 VTAB 6 + 5 # I: INVERSE : PRINT M&(1): 
NORMAL : PRINT " HAI FATTO "HT CI)" CEN 


REI TR"ZZ$" E “ INT (PPCID)" PUNTI!":T = FF 
sta (D _/ 50: IF T > 9 THNT=9 
pri 1513 RESTORE : FOR J = 0 TO T: READ A$: NE* 
HTAB 14; PRINT * JI 
VTAR Qu: HTAE 14: PRINT GAI) 1514. VTAB 6 + S & I + 2: HTAR 2: FRINIO "NI 


TUO GRADO E° 
Va IF OT * 127 TED 7 5° PRINT "è 
1515 NEXT I 
1516 VTAB 22: FORI = 0 TO O: NEXT | 
SRI 127 THEN ioui 1520 PRINT “FREMI *F° PER FINIRE, QUALSIASI 
ALTRO — TASTO O PULSANTE PER CONTINU# 
"i: FLASH : PRINT " NORMAL 
IF_PEEK ( - 16297) 27 OR _PEEK ( 
16286) > 127 THEN 80 


INVEI 


SE : PRINT fG8;: NOFhAL 


IF P_THEN 


PARTI FI P 


rAE 1 HIAB 1530 J * PEEF ( - 167R0): POPE — posRn,M: TI 
& HIAB I 3 < 128 GOTO 1525 
1em36 POF 1550 FOFE - 16368,9: GOTO 1600 
56 I VER 1560 FFINT : PRINT : NEXT I 
3 Reso» 1600 IF 3 198 AND JI ro 
1610 TEXT : HOME : FFINT è: mi tI) 
Li a n ba ; EYEC SWITCH" 
ma 1620 END 
sa UaE BTAB 3A: :RSE =: PRINT CHES 6000 HER 
Lao NOEMAL » IF T = 192 THEN ir 4005 HEOLOR= 1 
È 6010 FORI = 7 5 
3 sata 6020 HPLOT 1,150 TO 1, FEEI E 
o SERIO 6030 NEYT I 
S7 OA THEN VTAB 1: PRINT Burn e FI i - id Dr a 
DSS) TO +160: 
SUE SERRE L5S68:/02 PRINT 8 RENT 5050 REALI, sioni 
590 PRINT "FDILVERE DA SPAFO (DA 1 A 4: 6100 GXA(0) = 7 + INTO CRND (19 % 9 E6X%01 
È FBSA 3 IBRA licla ) = 158 + INT C KND CI #£ 90) 
591 T=  PEEI 15384): IF T 128 THEN 59 6110 FOR L= 0 TO 1 


5 6115 I 
190 PRINT CHF$ LI è TT 1270 6120 HFLOT I - 4, (OGNI) ' ' 
bs 190 THEN 58 4, CI + 1T01+80, cal 
997 BF) = 7 176: GUTO 504 Gm) TO I - ©, FEEL (I + 61) su 
500 EDFE 16268, PRINT : FRINT I - 4, FEEK CI + GM) - 1 
610 INFUT "ALZO (DA O fi 127): "3G6(E): 101 6142 NEXT L:L1 = 0:12 = 1 

F) 0 OR GA) 127 THEN 610 5143 TO L2:J = DAtLI: FOF E > di 
520 GONO Goa Ri IF L THEN J - i& 
1001 POF 16368,0:1 = GA(F)\: IF ROTH! 

= 180 — I 6144 COS (J & FO):vY = 8 & SIN 1 
La6T 1 GY = PEER CT + GT) 


HTAR PRINT SFCC 34); 6145 1TO 1:31 = GX%0L): 
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© 0 o 0 0 oooeeooeoe oe eeeoeoeeooooeoeeoo00oeeo 
6150 HPLOT T, PEEK <I + GT) - 3 TOT + vX, FEE 
I # RI > I 
NEXT V:J = GAIL) 
NEXT R:0A(L) = GA(L): NEXT L 
RETURN 
O TO 3 STEP 3 
I 
K = PEEK (GT + 255):JI = 8X* 
HPLOT 269,K TO 269,K —- 20 TO 269 + J.l 
= 69 + J,F — 15 TO 269,k - 15 
Qu I 
RETUFN 


vv = O:4 = 
Q:AC = .08 
/ 2:4V = O:6V = 127:6T = 7936 
DIM X(1),Y(1) ,XVC1),YV(1) ,GAC1) 0AC1 
B(1) ,N$(1) 

8010 DIM HT(1),LN(1) ,PP(1):PF(1) = D:NT = 

HT (1) = G:IPP(0) = 0:HT(0) = 0 

8020 PC = 3.14159 / 180 


8001 


BO30 FOR I = 0 TO 9: READ A$: NEXT |! 
8040 FOR I = 0 TO 29: READ J: FOFE vat 
J: NEXT I 
8900 DATA BORGHESE, SOLDATO, CAFORAI Fu 


RGENTE, TENENTE, CAPITANO, MAGGIDRE, TEM.I (i 
LONNELLO, COLONNELLO, GENERALE 
8910 DATA 169,3,132,10,165,128,17 
0,240,17 i 
2,208, 


8999 RETURN 


franco muzzio 
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ed Ito re © Il piacere del computer è /a prima collana inte- 
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ippica 


Questo è un tipico programma di scommesse sui ca- | zionale alle sue possibilità di vittoria e durano in media 
valli. un minuto ciascuna. 

Possono partecipare fino a nove giocatori ognuno Si avverte che il programma non fà credito! 
con un capitale iniziale di $ 1000. Le corse si svolgono Buona fortuna! 
tra cinque cavalli ognuno quotato in maniera propor- 


PO REM NOS SOCOCOOONO UNO GR OOO A 450 1X(3 = 2iV(3) = 18: COLORS= Ri 
REM 
REM IPPICA * 4:X(4) = 26: COLOR= 1 
REM + 13 a 
REM VERSIONE AFFLE II LI 5egd) = 34: COLORS= 1: 
REM , GOSUB 550 
REM PERSONAL NF TWARE * INT (S * RN 1 GOSUR 
REM * GOTO SIO 
ESSIZIIIEZEEIILIZOZIOSZ CI CCA CLILIOCL:ZILGCALI FLOT X(A) + 1,Y(AY 1: PLOT X(A) 
TEXT : HOME (A) — 1: PLOT *(A) DV (A): FLOT 
DIM N$(27) 1,VY(A): PLOT X(A),Y(A): FLUT X(A)Y 


FOR I = O TO 27: READ N$(I): NEXT I SA 
PRINT “BENVENUTI ALLE CORSE DEI CAVALLI! FLOT X(A) — 2.,Y(A) + 1: FLOT XCA) 
î (A) + 1: FLOT YA YA) + 1: FLOT 


PRINT : PRINT : INPUT "NUMERO DEI GIOCA] MARI E 
ORI? “;W FLOT X(A) - 2.YCA) FLOT X(A) 
FOR Y = 1 TO W: PRINT : PRINT "GIOCATORE CRIS E LOT XXA) + L,Yoa) + 23 
N. INPUT "3BS(V): NEXT CA) + 1.YCA) + 3 
FOR ÙU = 1 TO W:B(U) = 1000: NEXT RETURN 
FOR L = 1 TO 5:5 = INT (29 & RND (1)) COLORS 123 = INT € RND 


+ 2:R(L) = Ss NEXT * 3 / R(A) ni 1:X(A) = XCA) 


HOME dba LEE XA) COLDR= CA): 


INVERSE : PRINT "OUOTE TOTALI 350: RETURN 
ZZATORE": NORMAL Treshi 

FOR Y= 1 T0 5 GOTO 930 

N = INT € RND (1) * 28):SW= @ TEXT : HOME : INVERSE : 
FOR J = 1 T0Y- IF N(J) = N THEN SW * VINCITE E PERDITE * 
= 1 

NEXT J: IF SW 1 THEN 195 0 FRONTI PIERI RUE SIERTORE E® IL NUMERO 
FF : HTAB 3 Ts 3 

NEVI Th 1 TO W: PRINT : IF T= 20%) THEN 
PRINT Y "INS INOO) 3" DATO "ROD" A NT B$(V);" HA VINTO "iF(v) * 
1": NEXT Y $":B(Y) = B(Y) + (F(OV) * (FULL) 


FOR Y = 1 TO W: PRINT : VTAB 14: FRINT _- 10): GOTO SESIA 
B$(Y);" HA "sB(V);"s" 990° PRINT B$(Y HA PERSO "iF00;"% 


PRINT : INPUT "QUANTO VUOI PUNTARE? ";F ci RT RR 
0: IF PIV) <= BIV) THEN 290 1010 NEXT : PRINT : PRINT "UN'ALTRA SCOMME 
TRVERSE i PRIN ANN Sr FA CRE SA (S/N) "3: INPUT "9 "“sF$: IF F$ = "S" 1HUN 


DITO": NORMAL. : GOTO 270 130: END 
PRINT : INPUT "SUL CAVALLO NUMERD? " 2000 DATA — "NERONE" —, "NAPOLEONE" —_, "HE1N 
Wi IF ZOO © 1 0R ZI © 5 THEN 290 ", "DIOGENE", "GIULIO CESARE", "MUSTANG 


FOR 01 = 14 TO 21 

VTAB Di: CALL - B6B 

NEXT : NEXT 

HOME : GR 

COLOR= 12: FOR © TU 39: HLIN 0,39 AT 
I: NEXT 


PR 
* 


NT "KE * kx 
* 


I 
* *": NORMALI 


2010 DATA "BALZEBU®", "RUBINO", "CIVETTA", "KE 
ARTU”", "TORO SEDUTO", "SAETTA" 


DATA — "BARBAROSSA", "MERCANTE", "SMERAI 
DO", "CUCULO", “SOMBRERO", "BARBERA", "STAL 
LONE" 

DATA — "DIVINO", "SANGIOVESE", "MAFIOSO" 
s "BO DEREK", "THE LAST HURRA” ","MARCANTO 
NIO", "PEPE", "COWBOY", "MENISCO" 


= 2:C(1) = 2: COLOR= 


= 10: COLOR= 7:10 
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Galaxia 


Galaxia è una versione per APPLE Il di un gioco 
piuttosto diffuso nei bar e nelle sale giochi. 

Si tratta di un'invasione di esseri extragalattici (i cri- 
noidi) che il giocatore deve distruggere se vuole salva- 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
90 

100 
110 


PISSITIIIICCCCCICECRIIICC CCC COCCECCELIA LELLA] 
* 

GALAXIA 
VERSIONE APPLE II 


PERSONAL SOFTWARE 


IDNSUAUNO 
dtt nt nere de 


rsa 


DIM S(20,15),A(6,3) 
TEXT : HOME :5 = 19 


POKE 232,99 ROT= 
0: HCOLOR: 


= 31776:HIT 


POKE 233,124: 
31789: 


SCALE= 1: 
BIS21I: STAR 


si 


50: DY 


6A, 


NEXT X1,X 

INFUT "GRADO DI DIFFICOLTA” ‘1 

:LE = VAL (A$): IF LE 1 OF 

THEN 140 

:SCR = 0:AN 
1 THEN LE 


LE = 4 - LE 


HER? 
IF LE 
FOKE DY,1: 


CALL 
PORE 


CALL PHASER» 
FHASER: 


FOFE DY,60 
O: ACK O 
2:A = B& ( INT 
2 TO 8 STEF LE: 


CALL 
OsNL 
‘6 / LE) + 
FOR X = 2 TO 


Di: FOR Y 
16 STEF 


SO, Y) = 10: XDRAW 2 ATO XA 14 + 7,Y * 
10: NEXT X,Y 

190 HCOLOR= 0:Z = Z + FDL (0) * T: DEAL 
1 AT FI, 1S2:B = P INT (PX 5): 
S(S * P1,15) 255: XDRAW 1 

4 "a 

200 IFA=0O ORZ INI (7 ?) THEN 
270 

210 FOR X1 = 2 TO 16 STEP 2:XX = XX + SIX, 
2): NEXT : IF XX + 10 X ACK + 60 THEN 2 
30 

220 GOTO 270 

230 FOR Y = LE + 2 TO A STEP LE: 

TO 2 STEP - 2: IF S0,V) = 

10 THEN S(X,Y) Goto 250 

240 NEXT X.Y: GOTO 

250 FOR Xi = 16 TO 2 STEP - 2: IF SIX 
O THEN S(X1,2) = 10: DRAW 2 AT 14 
N2) + 7,10 X (Y + Ni): XDRAU 2 AT 14 * 
CX1 + N2) + 7,20 + 10 & Ni:XX = XX + 10 
1X1 = 2: IF XX = 60 THEN Y = 8 

260 NEXT : GOTO 240 

270 IF ACK = 0 AND A = O THEN LE = LE — 1: G0T0 
160 


IF PEEK 128 THEN 


( - 16287) 


© e e © © © © © © © è © © @ ©® 


re se stesso e la galassia. 

Il gioco ha tre livelli di difficoltà e va giocato con le 
palette: con la manopola si sposta il cannone-laser e 
con il pulsante si spara. 


290 FOKE DY,50: POKE DX,1: CALL FHASEF: IF 
ACK = 0 THEN 330 

300 NOHIT = 255: FOR X = 1 10 S: 1F - 
D THEN Xi = X:Yv1 = ASX, = 


NEXT : IF NOHIT THEN 330 
Vi * 10: FOR X = GTO TrA(X1,% = - 
NEXT :ACK = ACK HCULOE= 
3: HFLOT B, 150 XDRAW 


2 AT 14% D+7 YDRADI A 
14 8 D+ 7,0: 1: DRAW 2 AT 14 £ 
D + 7,C: HFLOT E TO B.C:SCR = SCR + 
10 © (4 - LE: GOTO 30 
D 2% UD + NZ 
DR N? D THE 
TO 2 + NI 
- Ni: O THEN X = 
2 + NI:MOHIT = 
HPOLOR= HELOT B.1S0 10 
1 HELOT B.ISO TO BG: SOI0 
370 CALL HI}: HCOLOR= HFLOT BL1SO TH Bf 
\CALE= XDRAW 2 AI 14 % D+ HOOL HE 
xDRAWI 2 il 
TIA KD+ 
- ND.X 3 
è (di = 3 
380 IF ACK = 
390 FOR Xx = 1 TO 
14 x AI * 
= AO2):B3 x 
B4 = 10 * AG: 1F A 
400 NEXT : GOTO S50 
IF DO - AI THEN Xi = 1: GOD 440 


IF AI D THEN X1 = GOTO 49 
2 = 16 THEN 510 
2 AT RI,B4: HODL 
AO,O) = AL + 
= AL:A(x,3) > 
+ 1) 


IR UE 


MID SA 

IF INI 
3 THEN 40 

FOKE 31950, 1: CALL ©1uS 
HFLOT 14 * AL + 14 + Xi.iO % 

14 % Al + 14 + X1y1$0: HCOLOR= 6; 

14 # Gi + 14 + XILIO X AD + 10 TO JA Ò 

AL + 14 + X1,160: 1F D f&1 THEN | (] 

480 

son 

ScAL 


10: 


1) * 3 
FOHE 31951,50: 


460 


a7Ò 
480 


400 


i 


490 IF AN. £ RETUEN 


S00. GOT0 SS0 


IF 


Al DOTHENO GOSUE 


CA 
Ra) 


a 
[3 


È = ACE — 1: FOR DI = O TO T:A0, 
— 1: NEXT : GOTO 400 
sro DI = 16 TO 7 STEF - IF S(D1,8) = 


© THEN S(D1,8) = 10: XDRAW 2 AT 14 % :D 
1 + ND) + 7,10 % (8 + NI) 


S30 NEXT : DEAV 2 AT Hi,1 OR DI mn 
350, DL) - 1: MET : FOR DI "TO 
8 - LE STEF LE: FUR D2 = 16 TO 2 STEF 
2: IF S(D2,DI» © THEN S(D2,DI: = 10: 
2 AT 14 * (DD + ND + 7,10 * (DI + Ni): 
D: Di 8 — LE AH 1 
NEXT D2.D = KCH — 1: GOTO 400 


IF AN < 6 THEN 500 

HOME : TEXT : VTAB 3 

IVELLO "4 - LE 

570. VTAB 14: PRINT TAB 12) "PUNTEGGIO 
CR_* 10 

580 TEXT : VTAR 2 
CARE ANCORET 
“N THEN END 

590. RUN 100 

600 ZZ = 5 %* (7 


PRINT TABC 14 


HITAR 9: 
GET AS: 


PRINT "VUOI E 
PRINT : IF AS = 


INTO CZ 2 3I K a 


$ZZ: POFE S2,2Y: STAR ZY 

610 IF A = 0 THEN 190 

620 IF AC u AND 10% INT 2 
10) THEN 680 

630 YY = SEN ( RND (1) — .5+: IF MU — vy 


O OR NU — YY OR vY = 6 THEN 470 
6490 YX = 20% SEN © END (1) - .5): TIFO ML + € 
x 1 OF NL 15 THEN 640 


650 IF SGM (vY 4 THEN 670 

660 FOFE MI,2 mi FOKE UF.1O + 
NU: POFE LFT.NL - 1: POLE DELIO * Mu 
NW: FORE DM.NL % ALL MOV NU 
— YVaNL = ML + = Mi - = NZ 
+ SEN 00%): a 

670 POFE MI, 206: FUOFE 6: POVE UF,1O £ 
NU + BI - 1 «NL — 1: FOFE DE, 
10 % (NU — +Y POUFE DM.NL + xx 


L MOVE:NU = NU 30 = NL + YX:M 
1=M + SEM 0 
680 { - 16356): POKE - 
SIA): FOVE — 153 H 
t— 163 IFA 3 # ! INT 6 / LE) + 
1) AND NI - 2 THEN 194 
690. IF AC 4 0K LE # S > 2 OR NI — 2 THEN 
196 
7200. FOR IF AO) = - 1 THEN A 
710 9: FOR X = 2 TO 16 STEF 


O THEN DRAW 2 AT 14 £ 


(X + ND) + 7,0: XDRAW 2 AT 14 % (X + ND 


) + 7.902ACk = ACK + 1:AC(AP,0) = 
ACAP.1) = 11 + N1:A(AP,2) = X + N2 
F = 11 + Nl:50,2) = GIA = A 


16 
720 NEXT : GOTO 190 
GOSUB 1110 


HOME 
FRINT “I CRINDIDI, UNA RAZZA CON TECNO 
LOGIE EIU° EVOLUTE, STA TENTANDO DI 


INVADERE LA GALASSIA. 
FFINT : FRINT "IL LORO SCOPO E° DI DIS 
TRUGGERE LA VITA ANIMALE E IMFORSI COME 
RAZZA € ORE 

104% PRINT INTO "LA TUA Miss. LUk 
ISTRUGGERE PIU'  CRINOIDI CHE Fis i 
FRINT 1 PRINT "ATTENZIONE 
PRINT "ALCUNI CFINGIDI SCEMDERAbbtt Ù 


ti 
1557. PRINT “ATTACCHERANNI. 
1060. PRINT "SE ARRIVEFANNI Alla RASE + 


1067 FRINT “"RICOMPARIRANMO UO DEL SIMECH | 


1570 FRINT : PRINT "LA TUA NAVE PUO E 
COLPITA SOLO" 

1072 PRINT NOVE VOL 1 FRIMI "GLLA SF 
TA SARAI DISTRUTTO E LA " 

1074. FRINT "GALASSIA SARA" INVASI 


(N? 


JORO  VTAB 23: PRINT " PREMI © RETUEN 
ER CONTINUARE Mg 
1090 IF PEEV < - 16384) 128 THEN 1090 
1100 FOFE  — 16368,0: HOME : RETURN 
1]10 FOR X = 0 TO 615: FEAD A: FORE X + 3 
44,0:B = B + A: NEXT : IF E 50709 4h 


x < 616 THEN PRINT "£%% DATI ERRATI 
*%4": END 
RETURN 


DATA 147,211,0,98,3,16,69,38,76,4,10, 

35,51,64,68,65,64,70,64,73,70,64,66,68, 

66,67,68,67,66,67 

1130 DATA 67,65,160,0,173,45,124,105,15,141 
+51,124,169,16,190,0,124,142,57,124,190 
+25,124,142,58,124,141 

1150 DATA 192,6,208,236,1 
5,14,141,83,124,169,0,190,0,124,142,89, 
124, 190,0, 124,142,90,124, 141,16 

1160. DATA 70,200,192,6,208,236,24,96,0,2,0, 
6,0,28,0,73,73,62,54,55,62,14,45,54,6 
55,77,73,60,39 

1170 DATA 40,5,56,36,39,60,0,73,46,45,4 

181 45,53, 63,55,45,45,45,46,4 

6,222,27,56,60,63 


1180 


1190 DATA 46,172,124,144 
06, 106,77,172,124,10, 


40,0, 
00,0 


B8,92,65,69,77 
59,77,77,81,95,89,9 


+77,B1,85,89, 


1240 


28,17 
DATA 1 
28,128, 128,128, 
140,40,40,40,40, 3 
DATA 168, 168,168, 168, 
31,40, 411,40, 40, 168,168, 
158, 168,40,40,40, 40,40, 4 
1290 DATA 168,165,1658,158,168, 169,146, 
0,40,90,40,90,40,40,0, 162,0 14 
190,0 S, 120,1: 
144, 4,191, 1. 
+42,126,142,49, 126, 140,0 
185, 120, 125, 105,114 
+24, 141,44, 1 


25,169, 80,205,240, 
206,17,126,76,246,1 
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Riflessioni 


Per giocare dovete conoscere bene le leggi di rifles- 
sione e di diffrazione (non temete: il programma vi 
Spiega tutto ciò che dovete sapere). Il computer, poi, 
nasconde 3, 4 o 5 palline in una scatola nera. 

Dovete determinare la loro posizione senza poter 
guardare nella scatola. Per farlo mandate dei raggi di 
luce attraverso le pareti della scatola: all'interno essi 
vengono riflessi o diffratti dalle palline nascoste. Con- 


CLERZIZIICEEITIZIEZITLILIZZZZIZALSEAITAtI 


RIFLESSIONI 
VERSIONE TRS-B0 MOD. I 


PERSONAL SOFTWARE 


ded GE 


* 
4 
ti 
Ù 
4 
4 
1 


LIEERFICECESCETICECCLLECESISICTELZZZZZZA] 


100 CLS: FRINT922, "RIFLESSIONI": PRINT 
150 CLEAR 200 
160 L$=STRING$(32,".") 
180 INPUT“VUDI LE ISTRUZIONI":A% 
185 CLS 
190 IF LEFT$(A$,1)="N" THEN 12c FRINT 
195 PRINT: PRINT 
INT"QUESTO GIOCO ESERCITA IL TUO * 


INT"RAGIONAMENTO DEDUTTIVO." 
INT"IL CUMPUTER NASCONDE 

& PFINT"FALLINE (A TUA LTA) 
FRINT“SCATOLA NERA." 

FRIN SCOPRIRE LA LORO COLLOCAZIONE": 
PRINT" NA GRIGLIA DI RIFERIMENTO 
2A POTER GUARDARE NELLA 
LO PUOI FARE MANDANDO RAGGI 
B1TEAVERSO LE FARETI DELLA SCATOLA," 
“OSSERVANDO COME QUESTI VENGNNO 
INI "RIF SI E DIFFRATTI COLFENDO LE" 
FALL INE E CONFRONTANDO I PUNTI": 
INT" DOVE ENTRANO ED ESCONO, FOTFAT" 
INI "SCOPRIRE DOVE SONNM NASCOSTE. " 
INT"ORA VIENE DATA UNA DIMOSTRAZIONE ": 
RINT"DELLE LEGGI DI RIFLESSIONE E" 

INT "DIFFRAZIONE, " 

FRIMT 
INPUT 


CLS: 


405 
INUUMA 


=ENTER= 


FRONTO PREMI 


ECCO LA SCATOLA. I MIMERT 


FRIMTARZO 
PRINT"INDICANO I PUNTI DI INGRESSO E 
FRINT“USCITA DET RAGGI. ": 

S 100005 INFUT A$ 
PRINTARI?,CHR& (71) 3 


IN a 
ESCE 


FRINTA® 
PRINT "E NON INCONTRA 


UN FAGGIO CHE ENTRA 
OSTACOLI, 


SET(X,W: FOR I=1 


INPUT A: PRINTOA, CHRS (31) 
FRINTI®ZI, "NATURALMENTE NEL GIOCO NOM "; 
FRINT"VEDRAI LA TRAIETTORIA." 


FRINT"LE LETTERE INDICANO LA SEQUENZA" 


frontando i punti dove entrano ed escono i raggi, potre- 
te dedurre la posizione delle palline. 

Il computer calcola il punteggio finale in questa ma- 
niera: ogni raggio che urta una pallina o viene riflesso 
vale un punto, ognuno che entra ed esce senza incon- 
trare ostacoli ne vale due e, infine, ogni posizione non 
indovinata ne fa perdere cinque. Vince il punteggio mi- 
nore. 


328 PRINT" 
TO FRINT"A PER IL 
2 FRINT"R PER IL 
4 GOSUB 10000 

FOR I=1 TO 


DEI RAGG 


MO, 


SECONDU, ECCETERA. 


FPOFE 


POFE 15 


ue) 


FOFE 157 
25: NEYT 3,1 
INPUT A% 

ci GOSUE 2 
POPE 19709 


NEXT È 


1 FOF J=1 10 


PIRINI NANDO UN RAGGIO INCONTEA "s 
PRIMI ALLINA DIRETTAMENTE, LO SI" 
FRINT'IMPICHERA" CON UNA LI (URTO) MEL" 
FRINI"FUNTO DI INGRESSO, " 
IE 10001 

290 FOR Y=00 TO ST: Y=18: SETO,W): FOR J=1 
TO 15: NEYT 

400 POPE 197 

310 INPUT 65 

aD0 CLS: GNSUR ano 

430 POPE 15836,48 

440 PRIM98Z', "GENERALMENTE, SE UN RAGGIO " 

440 1 UNA PALLINA SU UNO DEI DUE" 

494 FRINT"LATI DEI SUO TRAGITTO, VIENE 

445 PRINT“ DEVIATO ED ESCE." 

446 GOSUR 1ON00 

450 SET(X.,V): FOR I=i 

abi SET OK. VI: 


Ù FRINTA76R, "MH 


PRINTA7S8,UHF8! 
JTAZ IONE 


NT"LA DEVI AVVIENE PRIMA CHE"; 
FRINT" IL RAGGIO INCONTRI LA RIGA" 
PRIN LLA FALLINA. "3: GOSUB 10001 
IMFUT È 
Sio GOSUB caro 
E “ECCEZIONE: QUANDO VEDE Un 


PALLINA ESATTAMENTE DI FRONTE, 
FRINT“SI HA UN URTO. "; 
GOSUB 10000 


FOFE 15772,48: POKE 15836,48 
FOR Y=20 TO S2: V=18: SETOX.V): FOF 
TR MEXT T.X 

550 POKE 15748,85 

560 INPUT A$ 

570 CLS: GOSUB 2420 

580 PRINT9832, "UN RAGGIO CHE Ha ni 
PRINT"FRONTE UNA FALLINA DA CIASCUN 


® ® e e oeeooeeooeoeoeeeeeeooeoeee00o000000000000000 


70 


584 PRINT"LATO DELLA" 

585 FRINT"TRAIETTORIA VIENE 

586 FRINT"RESFINTO ALL'INGRESSO ED “ 

587 FEINT"INDICATO CON F" 

588 FRINT"(RIFLESSO). “ 

589 GOSUB 10000 

590 POKE 15836,48: POKE 15708,48 

600 Y=18: SET, V): FORI 


610 3 Y=18: RESET ‘X.Y) 

612 

620 FOR X=51 TO 20 STEF -i: SET(X,W): FOR 
I=1 TO 15: NEXT I,X 

630 FOKE 15748,82 

640 INPUT AS 

650 CLS: GOSUB 2420 

659 PRINT9768, CHR$ (31) 


660 PRINT9768, "UNA RIFLESSIONE AVVIENE AMLHE": 


662 PRINT" SE CI SONO FALLINE DA UNO" 

664 PRINT"DEI LATI ALL’ INGRESSO: 

666 PRINT"IL FAGGIO NON FUD* ENTRARE." 

668 

670 POKE 

680 FOR X=20 TO 

690 POKE 15748,82 

700 INFUT AS 

705 PRINT9768, CHE8 (21) 

706 FRINT9872, "SE C'E* UNA FALLING 
PRINT"PROFRIO DI FRONTE, E” UN Ul 
GOSUB 10000: POKE 15756,48 
POKE 15748,85: INPUT A$ 
CLS: GOSUB 2420 
PRINT98T2, “UN RAGGIO PUO” 
PRINT"DEVIATO FIU” DI UNA VOLTA." 

OSUE 100n6 
FOKE 158 
740 3 48 
NEX] 1,% 
750 Y=18 TO 17 
TO 15: 
760 FOR 8 TO 84: 
NEXT 1, 

770 PI :748,65: PUOEE 15664, 65 

780 INFUT AG 

790 FRINTA8IN.UHRS (31) 

800 PRINTOBT?, "NOTA CHE IL RAGGIO FOTFERBE"; 
FRINT" ESSERE ENTRATO DA 4 0 DA 23." 
GOSUR 1000 


‘218: SET(X,W: NEXT 


SET» 


E FRINT9128, "GUARDA I PROSSIMI 
PRINT"ESEMPI. 
FRINT"SE NON TI E” CHIARO IL FERCHE” 
FRINT"DELLE TRAIETTORIE, DEGLI URTI © 
FRINT"DELLE RIFLESSIONI, ": 
PRINT“RILEGGI LE ISTRUZIONI." 
30SUB 10000 
INFUT A$ 
CLS: GOSUB 242 
FOFE 15836,48: POFE 15572,48: POFE 
15592, 48 
FOR X=20 TO 48: Y=18: SET, W:FOR I= 
TO 15: NEXT I,X 
FOR Y=18 TO 12 STEP i: SETOX,V): FOR 
1=1 TO 15: NEXT 
FOR X=48 TO 72: 
TO 15: NEXT I,X 
FOR Y=12 TO 3i: 
TO 15: NEXT I,vY 
FOKE 15748,65: FOFE 14154,65 
PRINT9BTI, CHFES (31): GOSUE 10001 
INPUT A$ 
CLS: GOSUR 2420 
POKE 15836,48: FOFE 15640,48 
FOR X=20 TO 48: Vat8: SETO.W): FOR IVI 
TO 15: NEXT I,X 
FOR V=18 TO 15 STEF i: X=48: SETO.W): 
FOR I IO 15: NEXT I, 
POKE 15748,85 
FRINT9832, CHR$ (31): GOSUB 1000 

990 INPUT Ab 

1000 CLS: G0SUR 2420 

101% FOFE 15836,48: POFE 15572,48: FOFE 
15592,48: POKE 15720,48 

1020 FOR Y=t0 TO 48: Y=18: SET(X.V): FUR 
TO 15: NEXT I,% 


SET (X.Y) :FOR I=1 


SET(X,W: FOR I=i 


1030 


1040 


1950 
1460 


FOR Y=18 TO 12 STEP -i: X=48: SET(X.,Y): 
FOR I=i TO NEXT I,Y 
Y=12: SET(X,W): FOR I=1 


48: Y=18: RESET(X,YV): NEXT 
12 STEP -1: X=48: RESET 


71: YV=12: RESET(X.V): NEXT 
48 STEP -1: YV=l2: SET. VW: 
FOR I=i TO 15: NEXT I,X 
FOR Y=12 TO 18: X=48: SET(X,YV): FOR I=1 
TO 15: NEXT I,vY 
FOR X=48 TO 20 STEP i: YV=18: SETO,V): 
FOR I=1 TO 15: NEXT I,X 
POKE 15748,82 
PRINT9832, "VUOI LE ISTRUZIONI"; 
INFUT A$ 
IF_LEFT$(A$,1)="S" THEN 220 
CLS 
FRINT"GIOCANDO FUOI METTERE LE PALLINE": 
PRINT" DOVE PENSI SI TROVINO." 
PRINT"PUDI ANCHE TOGLIERLE SE CAMBI IDEA 
PRINT"SE PENSI DI AVER INDOVINATO TUTTE 
PRINT"LE POSIZIONI CORRETTE SCRIVI” 
PRINT"FINE." 
PRINT"APPARIRANNO LE PALLINE NELLE "3 
PRINT"POSIZIONI ESATTE E Il. PUNTEGGIO. " 
PRINT 
FFINT“OGNI URTO O RIFLESSIONE = 1 PUNTO" 
FRINT"OGNI RAGGIO CHE ESCE 2 PUNTI" 
FRINT"OGNI POSIZIONE ERRATA 5 PUNTI 
PRINT 
PRINT“VINCE IL FUNTEGGIO MINORE 
PRINT: SOSUR 10 
INFUT A 
CLS: RANDOM: E 
INPUT"OUANTE F NE (DA 
FOR 1=1 TO BN 
X=RND (8): Y=RND(B) 
IF_AO,V)=0O THEN AUX,Y) 
GOTO 1260 
NEXT 
CLS 
GOSUB 2420 
GOSUB 2340 
FRINT9842, "SCRIVI L'ENTRATA DEL RAGGIO" 
INPUT E 
IF E>32 THEN PRINT9B32, "ERRORE": 
FOR I=i TO 500: NEXT: GOTO 2020 
CTSCTAI 
GOTO 1380 
REM 
IF ESO AND E<9 THEN X= 
GOTO 1940 
1F_E-A AND E<17 THEN X=E-® 
"NOFD": GOTO 1440 
IF E%6 AND E<25 THEN X 
"ST": GOTO 1440 
4 AND ESTE THEN X=T3 
! GOTO 1440 


REM 
FESIOLY 
IF D&-"EST" THEN J O: GOTO 1490 
1 OVEST" THEN 0: GOTO 149) 
IF Ds="SUD" THEN I GOTO 1490 
IF D8="NORD" THEN GOTO 1491 
AOGET=I, Y+I+J) 
CER CX+I, Y+J) 
AX+I-J, Y+1+J) 
REM 
IF _L=0 AND C=0 AND R=0 THEN X=X+1: 
: GOTO 1730 
REM 
IF C=1 THEN 1860 


OR X=9 OR Y=0 OR Y=9 THEN | 


EST" THEN 1640 
OVEST" THEN 1660 
SUD" THEN 1680 
GOTO 1700 
IF_R=1 THEN D$="NORD" EI SE D$="Sun": 
GOTO 1450 


GOTO 1450 


IF R=1 THEN D$="SUD" ELSE D$ 
GOTO 1450 
GOTO 1450 
IF R=1 THEN D$= 
GOTO 1450 
GOTO 1450 
IF R=1 THEN D$="OVEST" ELSE D& "EST": 
GOTO 1450 
GOTO 1450 
REM 
IF > OR X=9 DR y 
GOTO 1450 
EX=10KX+Y 

=EP THEN 1880 


ST" ELSE D$ 


) MR Y=9 THEN 1750 


1800 
1810 
1820 x=EX 
18 Y=71 THEN 
GOSUR 1900 


2020 


18 
1860 
1870 GOTO 
1880 X=E: 
1890 GOTO 2020 
00 IF XS0 AND X<9 THEN 1910 


SUR 190) 


GOSUR 1901 


19 

1910 IF X%8 AMD Y17 THEN 1960 

1920 IF X>16 AND * THEN 1980 
IF Y*24 AMD > THEN 2000 
FOFE 92+44$%, 1: RETURN 
FOFE 16129+4% (X-91,I: RETURN 


FOKFE 1604B-(X-171*64,1: RETUFN 
FOFE 1 Y) 4,1: RETURN 
PRINTO87 BATTI T PER TOGLIFRE NFFURE ": 


To 


FRINT"A F BIUNGERE PALLINE OPPURE " 
PRINT"INSE L'ENTRATA DI LIN FASGIM":* 
INFUT 6 

ZOZO PRINTA! TRING$ (64, " ) 

2040 EFT$(G$,1) 

2050 

2060 THEM 21 

2070 THEN 2110 

2080 IF LEFT (T$,1)="F" THEN 

20BS IF ASC(LEFT$(T$,1))%65 THEN PRINT9832 


"ERRORE": FOR I=1 TO 500: 
AL (6$): GOTO 1340 


2090 E: 
2I00 FL 

FRINT9832, "COORDINATE DELLA FALLINA " 
? PRINT"(ES. COL26, RIGAS = 26,5)" 

INPUT N1,N2 


FOFE 15496+64%V+4%X,M 
GOoTO 2020 

FOR X=1 TO & 

FOR v=1 TO 8 

IF AOX,VY=1 THEN FOFE 15496+64%Y+4%", 
IF &CX,V)=1 AND BIX 1 THEN CT=CTHE 
NEXT Y,X 

PRINTI842, "IL TUO PUMIEGGIN EU "0T 
END 


sul: FOFE "stu 
ISSAGLUDI POPE [5508 

342 FOVE SU, FOFE 1% UK hi 
3 POL dé 80 PINO 1954 


POPE 15670, 60: FOVE 1° 


FOLF_ 1% Boe E 


15663, 
POI 


PRINT9832, STRINGS (64, ") 

NE=N1 

IF NB>O AND NE 9 THEN Y=NE 

IF NB>® AND NB<17 THEN X=NH-& 

IF_NBUI6 AND NB<25 THEN YoPr-hA 

IF NB:24 AND NE< THEN %= NE 

IF _NB=ND THEN 2200 

NB=N2: GOTO 2140 

IF FL=1 THEN 2230 

IF_BOX, Y=0 THEN BOCM=i: Med GTO 20 
GOTO 2110 

IF_RO,V)=1 THEN ROY, oo GOT 27501 
Soto 2110 


THEN FOFPE 15861, 
THEN FOFE 152651 
THEN FOKE 15 

0: POE 


15920, 78: 
RE TURN 


O FOR 
240 PRIN tI 
2440 NEXT 

24560 FOR 

DAGO PUFE L5494+64%(%-46) > 
DA7O MEYI 

2480 FOF 


490 LOR 
roi 
FOR 
SETIA,Y 
MENT Y.Y 
POPE 1607 


TO ga 
TO ci 


FOR Ya16070 TO 
vavaa 

FOFE x,49 

FOSTE vil, ved 
MEYI 
TOR va 
ORE 1 


2 


Bombardiere 


Il gioco comincia con la vostra scelta del canyon tra | di lanciarne un'altra, dovrete aspettare che la prima 
quattro diversi tipi. Potete poi volare sopra di esso, | abbia finito il suo effetto distruttivo. Se non sganciate 
sganciando bombe da un aereo (con il tasto spazio) | almeno una bomba per volo, perdete un punto. 
per eliminare gli ostacoli. Il gioco termina dopo tre errori. 

Potete sganciare una sola bomba per volta e, prima 


ITTTTTTTTIT TERZI TELI CAGGGACA SALA II CICERO NÉST 
è Î “ la È 
BOMBARDIERE M Ri ao IF 01=0 THEN mami. 
VERSIONI -a0 MOD. * DIB,M; 
ESSIEONE IR Ba E z IF M=3 THEN 490 
5 “i A D=D+S! 
PERSONAL. SO0FIMARE + 
% IF O=0 THEN Di=0 


IETTETTTTTTTI CITE CE CECT CETTAI TTT CITA TATANI Za Roe 
PRINT922, "BOMRARDIERE " 200: SES ARTI 
18 FRINT 285 XI=X1+S1 


ERIN TO PROGRAMMA STAT RIFULEMI 


G=0: AO "so 


IF x150 7 THEN RESET 


25 FRINT"UF CANYON DAGLI OSTACOLI 
) PRINT" NCIENDO BOMBE DI UN AEROPLANO. ox (9-0: soTo 420 
SRINT“IL GIOCO CONTINUA FINCHE® NON SBAGLI* 60+INT(Y1/3) *64+INT(X1/2): 1F FEFL 
5 PRINT" INE VOLTE." (F)=191 THEN O=0: G: GOTO 390 
40 PRINT"PUOI SGANCIGRE SOLO UNA BOMBA ALL: IF_FEEK(F)=188 THEN PRINTOINT(Y1/3) #64+ 
45 FRINT"VULTA, E DEVI ASFETIARE” INT(X1/2)-1," Li Fi=Fi+1: GOTO 40 
47 FFINT"CHE ABBIA FINITO IL SUO COMPITO Fis SET(X1,YM): GOTO 220 


S1=S1/2: K=INT(UXI 
IF KCI-1) THEN 


IF 


THEM Cab 


SÙ FRINT 


DI SGANCIAFE LA PROSSIMA." 


50 PRINT"SE NON SGANCI ALMENC UNA BOMBA ": 

62 FFINT"PER VOLO, FEFDI UM 10 ” KCD=K: I=I+1 
3 PRIMI e=6- 

65 INFUT"FREMI ENTER FER GIOCARE Coro 


FRINTAHX64, CHR$ (20 
FOR Zi=i TO 10: F 
IF FEEK (F2 
NEXT Zi: FOR ZI=ZIO TO 1 STEP 


FOR Z2=0 TO 1: F 
+L1%60+3%k (2) 


67 LS: CLEAR S00; ASSCHRS (141) +CHR8 (140) + 
CHE$ (174) +CHE$ (130) 


"0 BS-CHES (140) +CHE8 (157) +CHF8 (140) + HE8 CI 


tO INPUT*CHE CANYON SUL) «1-41 "fs CLS: d 
1 n=s THEN SO D1%649+3%k (7): IF FEE (F2)=191 THEN 450 
AS IF A=4 THEN 4u IF FO THEN F=P+1: FOFE F2,188: FOFE F2+1, 
20 1h > THEN "S0 188: SOTU 450 
dr AS 440 POLE F POFE F2+1,32 
Pegi SIL 450 MEYT Z1 
10 FOR X=0 TO &: ERIMI YX/0+ 384, STETNGE DEN 
34XKT191);e NECI 450 NEXT Z: 130 
117 FFINTI894, STRING%/4%,121):: PRINT92960, 470 IF Fi=0 THEN M=M+1: FRINTW)38,M IF_m= 


THEN 490 
I+4F1: FRINT26,HI;: F 
Do) GOTO 240 

PRINT90, "HA FATTO 3 ERRORI E"HI"CENTRI" 


191) 
FRINTOZIZ4+Y*64+ (2-1) 47, 0 
2191) 33 NEXT 


THING (61, 
115 FOR X=0 TO 1: 
STRINGS (+14 


CS=INFE VS: 


120 FOF x=4 TO 762 STEP 44 :RINT CHR$ (30) 

122 PRINTAY,STRING& 05,151 :3° NEXT REINEE 5 n° È 
(20 LOE aci FO GI NO PRINT'FREMI ENTER PER GIOCARE DI MUOVO":: 
i VE PEER <15 1+%#64+v£ 191 THEN FOUIt INFUT A: RUN 


500 FOR X=256 TO 960 STEF 64: READ Y: FEINTOY 
s STRING$ (Y, 191): NEXT 
505 DATA 21,18,15,12,9,9,9,15,15,15,63,63 


IS6RIAYEEA4YIT, 188% PUPE 156B16YFA1+74741 
,188 


190 NEYT Vv, X: FRIMIDO MI EMIRT"; PEINTAT 1 

Canoni SI0 PRINT9738, STRING8 (2,191) :1 FOR ro 
en si B6b STEP 64: FRINTAX,STRING$(B, 191): NEXT 
ila Sermonti ie Si SE S20 FOR X=299 TO 567 STEF 67: READ Y: FRINTOY 
170 FOK Y=0+D360 TO 60-D$50 STEP 8 «STRING$ (Y, 191); NEXT 
172 FPRIMI2HF64, CHES (30); DATA 20,17,14,11,8 
pie CRI FOR X=631 TO 887 STEP 54: PRINTOY, STRINGA 
1801 FRINT9HE54I+X, bs (8, 191)33 NEXT 
190 540 G0T0 130 

S50 FOR X=1 TO 1/: READ MEXT FOR x=3R4 IM 

10 IF TMPESA PETTRTTETTNATI ini: xi=ya+a 

A TE IRENE ; 960 STEP 64: READ Y: PRIMTOX,STFINGS/V,1911 
do tI 4 Him RO 33 NEXT 


555 DATA 9,9,12,12,15,15,15,15,63,67 


I 


2 


(A -WKK-KEAM«EAEZZZIZZZZZZZZZZZZZZZZZ E 


05 DATA 9,9,9,9,9,9,6,6,3 


FOR X=567 TO 931 STEP 64: FRINTOX,STRING® 
(8B,191);: NEXT: PRINT@S06, STRING$ (5,191) 
FOR X=278 TO 546 STEP 67: READ Y: FRINI9*, 
STRING$ (Y, 191 NEXT 


565 DATA 20,17,11,5,27 


TO 866 STEF 64: FRINT9X,STRIN 
NEXT: GOTO 120 
READ Y: NEXT: FOR X= 


usi 
READ Y: PRINT9X, STRING$(Y,191) 


9650 STEP 64 
33 NEXT 


O FOR X=1 TO 7: READ Y,Yl: PRINTOY1I, STRINGE 
(Y, 191);: NEXT 

5 DATA 5,781,11,842,8,735,14,796,38,857,14, 
753, 17,814 

O FOR X=506 TO 698 STEP 64: PRINTOX,STRING$ 
(5,191);: NEXT: FOR X=1 TO 3: PRINT9Y£A7+ 

STRINGS ((4-X) X3+5,191) 


NEXT: GOIO Luo 


franco muzzio 
editore 


NY 


Il piacere del computer é /a prima collana inte- 
ramente dedicata alle applicazioni hobbystiche 
e professionali del personal computer. Questi 
libri descrivono l'hardware e il software, inse- 
gnano la programmazione in vari linguaggi, of- 
frono molteplici applicazioni e informazioni pra- 
tiche. Per conoscere gli altri titoli finora ap- 
parsi (relativi al PET/CBM, all'Apple, al Basic, 
al Pascal, al TRS-80 e ad altri argomenti) chie- 
dete il catalogo generale a 


franco muzzio & c. editore 
via bonporti 36 - 35100 padova 


cognome e nome 
indinzzo 


cap. località 


PS2 
®© © e ® e ®© © © ®© © ®© ®© ®© ®© © 
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Labirinto mobile 


Lo scopo del gioco è spostare il punto lampeggiante Il tempo è essenziale: dovete misurarvi con un oro- 
attraverso le tre sezioni che costituiscono un labirinto | logio che scandisce i secondi di gioco in un angolo del 
in continuo movimento, dalla cima al fondo dello scher- | video. 
mo. Ogni volta che il punto si scontra con un muro, in Avete a disposizione tre livelli di difficoltà: principian- 
qualsiasi direzione, il computer scrive OOPS e il gioco | te, progredito e super-esperto (tra i nostri conoscenti 
ricomincia dall'inizio della divisione che avete urtato. non abbiamo ancora trovato nessun super-esperto). 


Tenda 


(= u0B AZZZIZZZZZZ:ErEEZi:ZEZLIEZEZIAL:LIEZIZLELELEL] "a SIU", DESTRA, SINISTRA. 


1 

2 REM * INT"CI SARANNO TRE DIVISIONI NEL 

= REM £ LABIRINTO MOBILE * *INT"LABIRINTO. SE URTATE UN MURO," 

4 REM £ VERSIONE TRS-80 MOD. I * FRINT"DOVRETE RIPARTIRE DALL'INIZIO ": 

5 REM £ , PRINT"DELLA DIVISIONE CHE AVETE UFTAID 
6 REM £ PERSONAL SOFTWARE , FRINT“CERCATE DI PASSARE NEL MINOR TEMENM ": 
7 REM & * PRINT"POSSIBILE. IL VOSTRO TEMFO 

a REMO SOGOUUUUOGOGGGO GG OUO RU OOO OOO PRINT"INDICATO NELL*ANGOLO SUPERIMRE ": 


PRINT"SINISTRO." 
FRINT9850, "PAUSA. ..": RETURN 
AG (1) =STRING$ (5,140) +STRING$ (6, 128) +STRING® 
UTO 38N (5,140) 
100 0% CHR$ (191) +STRING$ (5, 128) +STRINGF 
24) (4, 140) +STRING$ (S, 128) +CHR$ (191) 
131) +CHR$ (189) +F$+ 310 A$(3) =CHR$ (143) +STRING$ (4, 171) +STRING& 


1: DEFINT A-F,X-Z 
"LABIRINTO MOBILE" 

x GOSUB GOSUB 290: 
TRING$ (211,0) 
HE (26) + STRINGA (S 
HA (198) +STRING$ 


FS (191) +STRINGG(C )+CHR$ (191) +F$+0HE$ (14%) (6,176) +STRING$ (4, 131) +CHR$ (143) 
3 TFING® (3, 176) +CHR$(143) A (4) =CHR$(191)+STRING$(4,128): AF(4)=NF(4)+ 
26 F8=CHR$ (191) +STRING$(3,131)+CHR$ (188) +R$+ A$ (4) +A% (4) +CHR$ (191) 
CHF (191! +STRING& (3,140) +CHR$(131)+R+ O A$(5)=CHR$(191)+STRING$(4,176)+STRING® 
CHR$ (191) +STRING# (4, 128) (6,179) +STRING$ (4, 131) +CHR$ (191) 
8$=CHR$ (182) +STRING$ (3, 131) +CHR$ (140) +R$+ 340 A$(6)=CHR$(191)+STRING$(4,176)+CHF$(179) 
CHR$ (131) +STRING$ (2, 140) +CHR$ (176) +F$+ +STRING$ (4, 131) +CHR$(179) +STRING$(4,176)+ 
CHR$ (140) +STRING$ (3, 176) +CHR$ (143) CHR$ (191) 
ISVARPTR(M$): A=O: B 168: X-0: 350 A$ (7) =CHR$ (188) +CHR$ (176) +CHR$ (128) +CHR$ 
;1 Z=0: D=127: E=20: F=20: U=.33 (131) +CHR$ (143) +CHR$ (128) +STRING$(4,176)+ 
35 J=PEEK (1+1)+256%PEEK (1+2) CHR$ (128) +CHR$ (143) +CHR$ (131) +CHR$ (128) + 
39 IFJ 67 THEN J=-(65536-J) CHF$ (176) +CHR$ (188) 
40 FOR È TO J+210: READ POKE K,X: NEXT 360 A$(B)=CHR$ (191) +STRING& (4,176) +CHR#(1BR)- 
50 DATA 58,127,60,245 126,60, 17,127,60,1,67,9 CHR$ (140) +STRING$ (2, 143) +CHR% (140) +CHF$ 
52 DATA 237,184,58,128,60,50,64,60,33,129,60,17 (188) +STRING$ (4,176) +CHR% (191) 
O DATA 128,60, 1,63,0,237,176,58,255,60,50,191 370 A$(9)=CHR$(191)+STRING$ (6, 140)+CHR$(1931+ 
70 DATA 60,33, 254,60,17,255,60,1, CHR$ (140) +CHR$ (188) +STRING$ (5, 140) +CHF$ 


80 DATA 0,61,50,192,60,33,1,61,17,0,61,1 (191): RETURN 
90 DATA 0,237,176,241,50,63,61,59,191,61,245 380 PRINT985O, "BATTI 
100 DATA 33,190,61,17,191,61,1,63, +184, 58 FOR I=1 TO 40: X$ 


NTER= PER GIOCARE": 
NKEY$: IF X&/3"" 


110 DATA 192,61,50,12B,61, 193,61 THEN 410 ELSE NEXT 
120 DATA 63,0,237,176,58,63,62,50,% 382 PRINT9856, " “si: FOR I=1 TO 20: 
130 DATA 17,63,62,1, 37,184,58. X$=INKEY$: IF X$c%"" THEN 410 FLSE MEXI: 


140 DATA 33,65,62,17,64,62,1,63 
150 DATA 58,255,62,245,3 
155 DATA 


‘G0T0 =80 
410 CLS: PRINT9266, "1=FFINCIFIANTE" 
411 PRINTOZZO, "2=PROGREDITO" 


150 DATA 17,0,6 7 415 PRINT9394, “"3=SUPER-ESPERTO" 
165 DATA 63,33,126,63,17,127,6 O V=0: FRINT 
170 DATA 128,6 0,64,63, 33, 129,6 INPUT CHE LIVELLO VUOI" 


9,191,63, 


175 DATA 0,237,176,241,5 IF SCO OR S>3 THEN 420 
190 FOKE 16526, PEEK(1+1): POKE 16527, PEEK(1+2) CLS: PRINTDI9B, "PAUSA... ": È > Ag="": 
195 REM 190 DEFUSRO=J FER DISK-BASIC Bs="": : ON S GOTO 440,470, 501) 
196 RETURN 440 FOR I=1 TO 15: ASSAF+A$(RND(4)): NEXT: A$SSAF 
210 PRINT264, "IL VOSTRO COMPITO E° SPOSTARE "i: +STRING$ (15,128) 
INT"IL FUNTO LAMPEGGIANTE ATTRAVERSO" 450 FOR I=1 TO 15: B$=B$+N$(RND(4)): MEXT: B$=B$ 
FRINT“IL |ABIRINTO MOBILE VERSO Il FONDO": +LEFT$(A$(RND(3) +4) 15) 
FFINT" DELLO SCHERMO. ": PRINT 460 FOR I=1 TO 15: C$=C$+A$(RND(4)): NEXT: C$=0$ 
FRINT"TEMENDO PREMUTI I TASTI A FRECCIA “: +LEFT$ (A$ (RND(2)+7) 15): GOTO 600 
3 PRINT (UNO ALLA VOLTA) IL FUNTO SI" 470 FOR I=1 TO 15: A$=AS+NS(RND(7)): NEXT: A$=A$ 
PFINT'SPOSTERA" NELLA DIREZIONE INDICATA: ": +LEFT$ (A$ (RND(2) +4) ,15) 
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FOR I=1 TO 15: B$=B$+A$(RND(7)): NEXT: B$=B$ ELSE SET(X.V): 
+LEFT$(A$(RND(2)+7),15) 750 GOTO 700 
FOR I=i TO 15: C$=C$+A$(RND(6)+1): NEXT: C$= B00 W=W+1: FOR I=1 TO 15 
C$+LEFT$(A$(RND(2)+7),15): GOTO 600 (2: 
FOR I=1 TO 15: A$=A$+A$(RND(6)+2): NEXT: As= 810 FOR 
AS+LEFT$ (A$ (RND(4)+5), 15) 900 FOR 
FOR I=i TO 15: B$=B$+A$(RND(6)+3): 910 IF 
B$+LEFT$(A$(RND(2)+7),15) 920 IF 14 THEN 990 
FOR I=1 TO 15: C$=C$+A$(RND(5)+4): 930 IF Z=8 THEN 1010 
940 SET(X,Y): RETURN 
950 Y=Y+B: IF Y=44 THEN 1100 
960 IF PDINT(X,Y) THEN 800 ELSE SET(X,Y): 
970 X=X-B: IF X<B THEN X=R 
980 IF POINT(X,Y) THEN 800 ELSE RESET(X.Y): 

RETURN 
990 X=X+B: IF X>D THEN x=D 
1000 IF POINT(X,Y} THEN 800 ELSE SET(X,Y): 
1010 Y=Y-B: IF Y<B THEN Y=R 
1020 IF POINT{X,Y) THEN 800 ELSE SET(X,Y): RETURN 
1100 PRINT20, " PRINT2960, FIX ( (34000-TX10 
ON ERROR GOTO 0 —5*W4) £S INT(T);" SECONDI ‘E";W4; 
IF PDINT(X,Y) THEN 800 ELSE SET(X,Y) " DOPS). 
RESET (X,Y): Z=PEEK(C): IF Z<>A GOSUB 900 1105 PRINT" 
ELSE SET(X,Y}: FOR Q=1 TO E: NEXT 1110 INPUTX$: CLS: GOTO 410 

RESET (X.Y): Z=FEEK(C): IF Z<>A GOSUR 1120 CLS: PRINT"DEVI SOSTITUIRE L'ATTUALE RIGA 190" 

ELSE SET(X,Y): FOR Q=1 TO E: NEXT 1125 PRINT"FER USARE QUESTO PROGRAMMA CON IL DISK-"; 

RESET (X,Y):Z=PEEK(C): IF Z<>A GOSUB 900 1130 FRINT"BASIC": LIST 190-195 


FOR O=1 TO E: NEXT 
NEXT: 
"+0$+" 
SOTO 600 
THEN 950 


CLS: PRINTCHR$ 
N4Pg+" "496; 


IF 2=16 


NEXT: B$= ‘2 THEN 970 


NEXT: C$= 


C$+LEFT$(A$(RND(3)+4),15) 
PRINT964,A$31 


CLS: 
C$; 
X=RND (BO) +20; 
GOTO 700 

IF Y>14 THEN Y=16: 
Y=1: SET(X,Y): GOTO 700 
PRINT920, INT (T RESET ((X,Y 
Z<>A GOSUE 900 ELSE SET(X,Y 
NEXT 

ON ERROR GOTO 112: 


PRINT9384, B$;: PRINT9I704, 
RETURN 
IF Y>29 THEN Y=31: SETOX,V): 


SET(X,W): GOTO 700 


Z=PEEK(C): IF 
FOR O=1 TO E: 


RETUFN 


RESET (X,Y): L=USR(0)= 


FUNTI 


PREMI =ENTER="; 


(XK EREAEZEZZZZZZZZZZZZEZEZZZSEZUNWYRWYNE E DL) 
F un = tili 

e ec e eee eo eee e eee e e eee eee e eee e e e e 

Prendendo spunto dal gergo usato dai giornali, que- 


sto programma scrive frasi che sembrano effettiva- 
mente tratte da discorso di qualche politico nostrano. 


Dopo ogni composizione il computer vi chiede se ave- 
te ancora voglia di leggerne un'altra oppure se preferi- 
te che smetta. 


(= commodore 
1 CARS EREREZELEZCAURE ZZZ ALELELEZERERZER:EREGEREZELTERERBEGZZREZI ds 
2 * tI 
3 * FRASI IMULH! $ 
4 * 
b--] * MEPSHINE HET SLIM Ù b quit t 
Pa * BE PS Rd SOUP bla ri 
a * * 
D) MPPPPPPPPPPET ET PT TTI TI TIT TA CITI TUR LAtt ATI ETEE ATTIRA CIA AT LETITTT TATO T TOTI 
10 CLEF 
15 DIM ASCLO) (ESCI E ODA OE O I 0 
DO PRINT CHFS (197) 
30 SRIMT: PRINT: PRINTS PRIMI CHESG LI: “GUNEEOIOEE GIO bia NATOn 
46 PRIMT: PRINT: PRINT'DA NNO STUDIO EFFETTHALC Pea 
SO FRINT"MARCH] DELL'UMIVERSITA DI PISO E In 
70 FFINI "RATORIO PRESSO | ISTITITI SUPERIORE DI 
820 FRINT“SANTTA 
100. PRINT "DALIA RECCHTI LES SIILUO ITEM; 
110 PRINT"TARIA E DA ARTICOLI BR fd SInIt 


4] GIOSMAI mi STAI 
IFISOLI UREMOS ERNIA: 


Ma MEDIE 
(RE 


PRINT'COMEIMAMDULi UA 
169 FRINISTUTTI T MODI FOSSI} 
170 FRINT"MARE OLTRE “"CHE$ (1) " 
180 PFINT"TI SENSO) COMPITO (5 Ò 


1 


ù 


(ASS EEZZZAZZZZAZAZZZZIZCSEZ SI ZSZGTRZE EE) 
© 190 PRINT"CHE POTREBBERO BENISSIMO FAR PAFTE DI" 
200 PRINT"ULTERIORI ARTICOLI SULL ARGOMENTO." 
(_) 210 GOSUB 10000 
220 PRINT CHR$(147) 
©® 225 PRINT: PRINT: FRINT: FRINT: PRINT: PRINT 
230 PRINT TAB(12) CHR$(18) "STO PENSANDO!" 
() 240 FOR K=1 TO 2000: NEXT 
250 PRINT CHR$(147) 
1010 A$(1)="L'UTENZA POTENZIALE ABC "IL HISOGNO EMERGENTE" 
® 1020 A$(3 IL QUADRO NORMATIVO ABC "LA VALENZA EP IDEMINLOLICA 
1030 A$(S5)="IL NUOVO SOGGETTO SOCIALE": A$(6 "LL APFR ID PROGRAMMATICI" 
(_) 1040 A$(7)="L’ASSETTO FOLITICO ISTITU'IONALE": 818 "IL CRITERIO METODO DG LI" 
1050 A$(9) IL MODELLO DI SVILUPPO": ASC(IOY IL METODO PARTECIPATIVO" 
(_) 1060 B$(1) SI CARATTERIZZA FE B$(2) VILEGIA": BH$( PREFIGUI 
1070 B$(4)="RICONDUCE A SINTESI": B$(5 "PERSEGI E": R$ (6)= ITFINSECAI* 
® 1080 BS(7) SI PROPONE": B$(8)="PRESUPFONE E&(9)="F0F1 SUBMIT" 
1090 B$(10)="AUSPICA" 
1100 C$(1)="IL RIBALTAMENTO DELLA LOGICA ASSISTE A EESISTENTE" 
® 1110 C$(2) IL SUPERAMENTO DI OGNI OSTACOLO SISIENZA Fi aTUa 
1120 UN ORGANICO COLLEGAMENTO INTFERDISCIPII- NARE ED. ‘INA PE 
(_) 1130 $(3)+" LAVORO DI UPPO" 
1140 LA PUNTUALE CORRISPONDENZA FRA OBIETTI- VI E RISOFSEL" 
(_) 1150 LA VERIFICA CRITICA DEGLI OBIETTIVI I- STITUZIONALI E L'IMDI" 
1160 $(S)+"VIDUAZIONE DI FINI QUALIFICAMTI"* 
1170 € IL RIORIENTAMENTO DELLE LINEE DI TEN- DENZA IN aTtu” 
® 1180 L' ACCORPAMENTO DELLE FUNZIONI ED IL DE- CENTRAMENTO DECISIONALE" 
1190 LA RICOGNIZIONE DEL BISOGNO EMERGENTE E DELLA DOMANDA NON " 
©® 1200 "SODDISFATTA" 
1210 C$(9)="LA RICONVERSIONE ED ARTICOLAZIONE PERI- FERICA DEI SERVIZI" 
® 1220 C$(10)="UN CORRETTO RAPFORTO FRA STRUTTURE E SO-VRASTRUTTURE" 
NEL FRIMARIO INTERESSE DELLA POPOLAZIONE" 
() PREGIUDICARE L'ATTUALE LIVELLO DEI LE FRESIALIOHNI" 
SUPRA DI INTERESSI E PRESSIONI DI FARIE" 
"SECONDO UN MODULO DI INTERDIPENDENZA ORIZZONTALE" 
° "IN UNA VISICINE ORGANICA E RICONDOTTA A_ UNITA?" 
ZON CRITEFI NON DIRIGISTICI" 
{]) “AL DI LA” DELLE CONTRADDIZIONI E DIFFI- COLTA” INIZIO I" 
"IN MANIERA ARTICOLATA E NON TOTALIZZANTE" 
() "ATTRAVERSO I MECCANISMI DELLA FAFTECI-  PAZIONE" 
"SENZA PRECOSTITUZIONE DELLE FISPOSTE" 
(_) "SOSTANZIANDO E VITALIZZANDOI* 
ECUFERANDO OVVERO RIVALUTANDO" 
"IPOTIZZANDO E FERSEGUENDO" 
© E$(4)="NON ASSUMENDO MAI COME IMPLICITO" 
O E$(S "FATTUALIZZANDO E CONCRETIZZANDI" 
® O ESCO "NON SOTTACENDO MA ANZI PUNTUALIZZANDO" 
O E$(7)="POTENZIANDO ED IMCREMENTANDO" 
® E$(8 ON DANDO CERTO FER SCONTATO" 
ES (9 "EVIDENZIANDO ED ESPLICITANDO" 
( } E$(10)="ATTIVANDO ED IMPLEMENTANDO" 
F$li "NEI TEMPI BREVI, ANZI Ei ISSIMI" 
F$(2 "IN UN'OTTICA PREVENTIVA E NON PIU” CURATIVA" 
® F$(3 "IN UN AMBITO TERRITORIALE OMOGENEO, AI DIVERSI LIVELLI" 
F$(4 "NEL RISPETTO DELLA NORMATIVA ESISTENTE” 
® F$(5)="NEL CONTESTO DI UN SISTEMA INTEGRATO 
F$(6 "QUALE SUA PREMESSA INDISPENSABILE E COMN-DIZIONANIE" 
(} F$(7 "NELLA MISURA IN CUI CIO% SIA FATTIBILE 
F$ (8 "CON LE DOVUTE ED IMFRESCINDIBILI SOTTO- LINEATURE" 
F$(9 "IN TERMINI DI FFFICACIA E DI EFFICIENZA" 
© F$ (10) MONTE E A VALLE DELLA SITUAZIONE CON- FINGENTE" 
G$ (1 TRASPARENZA DI OGNI ATTO DECISIONALE" 
(_) 6$(2 NON SANITARIZZAZIONE DELLE RISFOSTE" 
6G$(3)="UN INDISFENSABILE SALTO DI QUALITA?" 
° 6$(4)="UNA CONGRUA FLESSIBILITA" DELLE STRUT- TURE" 
6$(5 L’ ANNULLAMENTO DI OGNI GHETTIZZAZIONE" 
() G$(6)="IL COINVOLGIMENTO ATTIVO DI OPERATORI ED UTENTI" 
6$(7)="L'AFFIANAMENTO DELLE DISCREPANZE E DELLE DISCROSTE ESISIEMIT" 
6$ (8 "LA RIDEFINIZIONE DI UNA NUOVA FIGURA FROFESSIONAI E 
() G$(9)="L’ ADOZIONE DI UNA METODOLOGIA DIFFEREM- ZIATA" 
G$ (10) LA DEMEDICALIZZAZIONE L LINGUAGGIO" 
® A1=INT(10%*RND(1)+1): Bi=INT(10#RND(1)+1) 
10 CI=INT(10%RND(1)+1): DI=INT(10£END(1)+1) 
© 2020 E1=INT(10*RND(1)+1): Fi=LNT(10%FMD{1)+1) 
2030 G1=INT(10%RND(1)+1) 
2500 PRINT AS(AI) 
® 2510 PRINT B$(B1) 
2520 FRINT C$(C1) 
© 2530 % D$(D1) 
2540 E$(E1) 
(_) 2550 FI F$(F1) 
2560 G$(G1) 
3000 PI PRIN PRINT: PRINT CHES (18) "VUDT CONT INUORE 
© IF W$="" 
IF LEFT$(0$,1) 
@® PRINT: PRINT"OF — SPERO DI E t O "AIUTO!!!" 
END 
(}] PRINT: PRINT: RINT TABC010) CHR$ 18)" (PREMI UN 1aSTmoi" 
10010 GET A$: IF A$="" THEN 1001! 
(0) ) PRINT CHR$(147): RETUEMN 
®© ®© ®© e ® ®© ®© ®© © © ®© © ®© © e © © ®© © © © © e © © © © © © ®© ® 
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Julia 


Il programma stampa un calendario giuliano per l'an- se; 
no richiesto. FNF(Y) è la funzione per trovare il primo giorno del- 
Variabili principali l'anno; 
M1$, M2$ e M3$ sono stringhe che contengono i FNM(V1,V2) è la funzione che calcola il modulo di 
giorni dei mesi; un numero; 
L$ contiene la lunghezza dei mesi; D$ contiene i giorni della settimana; 
M$ contiene il nome dei 12 mesi; Y è l'anno di cui si desidera il calendario. 


C$ contiene i numeri corrispondenti ai giorni del me- 


[TTTTZZZZZI 
* 1982 K 
DEZEEZZZZZI 


GENNAIO FEBBRAIO MARZO 


me gi ve me gi ve sa do a me gi 


APRILE GIUGNO 
me gi È ve 7 2 me gi 
1 
CAME) 
3 14 15 


21 2: 


28 


LUGLIO ABOSTO SETTEMBRE 


a me gi ve ) me gi ve sa do ma me gi ve sa do 


S 
C) 
6 


OTTOBRE NOVEMBRE 


me qi ve sa do «ma me gi 


RSI 
2a 
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FIESFIFETKFKFKKTKIFFFKKTL:: 112 F3tFtrrtosidsi 
* Ù 
* JULIA M 
* + 
+ VERSIONE TRS-80 MOD. 1 î 
* 
* FESSOMAL SUP FVIARE + È 
x * LFEFINI Fa 3TRINHCA (LA 
M FEFFRAFAEAFIZZATZI A SF FRENI FVFLX 35 FF 41:41 M$ (B]+1);STF1 H+ 
119 DIM M1I(423, MISCAN), MISCADI, LIM, CRIZ1), 842 LEFINT 
M$ (12) 842 LPRINT DE;" "ha; gna 
DEF FNFY SY +INI ( (V=1) AV INT CEE CINTE OY 13 44 LPFIMY 
100) +1) /4) 950 FOF I STE 
) DEF FNMiVI1, 1-INT (V1/0V2) #V2 B50 FOR J 
cs n Q70 LPRINT MI&('+1-11: 
280 NEXT J 
890 LPRIMT " ni 
900 FOR TO 7 
910 LPRINT M2&/(1+4-1): 
i 920 NEXT I 
A PS SIO LPRINT " "i 
a ro! 1a 940 FOR d=1 TO & 
O LERINT M3$CI+]= 1): 
n 71, MAGGIO "35, NEXT @ 
È x n O LERINT M36(T+4) 
1a "LUGLIO "79," AEOGTO “20, MEET E 
" sen a O NEXT BI 
ESIOIONBE da FOR SP=1 FO 17: IFP]pit: MExi SE 
I PRINT 
ii. INPUT /001 UN AI TRO CALENDARIO (1 


20% PRINT: PRINT 

36 PRINT TOR27): "PROGRAMMA SILTAS" 
ale + 

LARIO GITA 

) F_OGNT AMDO SEE TI 

“POSTERIORE aL 1563" 


O RETUEN 


mai 
IT 
n 
f ' 
n E è 
LERINT TO NIE) 
qlo n-Enmer 
4 THEM SI: 
ami 
SIA IF EH 1 ' 
' " 
ì mai 
' 
Ie 
Et) 
i Lot 
5 (STICA 
Fb ' 
' 
HE © 
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Star War 


Si tratta di un gioco di tipo spaziale consistente nel 
distruggere una navicella aliena che si muove in mo- 
do casuale nella parte alta dello schermo. Bisogna 
però fare molta attenzione perché tra la navicella da 
voi pilotata e l'astronave aliena vi è una barriera e 
tutte le volte che la colpirete, l'astronave aliena si 
fermerà e lascerà cadere una bomba, che vi distrug- 
gerà solo se colpirà le ali della vostra astronave. 
L'’astronave aliena può sparare solo in due modi: (a) 
in modo verticale, e (b) in modo obliquo. Per proteg- 
gervi potrete usufruire di una barrirea che neutralizza 
i proiettili alieni, solo però quelli che cadono in modo 
verticale. La barriera può essere usata solo dieci vol- 
te. 

| tasti per il movimento della vostra astronave sono < 
per andare a sinistra e > per andare a destra, per 
azionare la barriera basta premere C mentre per spa- 
rare Z. Si noterà che quando si premono i pulsanti per 
lo spostamento della navicella vi è un rallentamento 
del gioco. Ciò è dovuto al fatto che il VIC non è in 
grado di gestire video e audio contemporaneamente 
e che il Basic non è così veloce da permettere la 
realizzazione di giochi troppo elaborati. 


Principali routine 
100 Cambia il colore allo schermo e richiama la 
subroutine di presentazione 


110-130 


140 

160 

170-200 
210-240 
250-270 
290-340 
350-370 
400-420 
420-430 
440-470 
480-500 


520-530 
540-620 


630-640 


650-670 


700-770 
780-820 
830-870 
890-900 
910 


Inizializza le variabili e dà il repeat a tutti i 
tasti 

Alza il volume dei generatori audio 
Genera la barriera 

Genera l'astronave 

Genera la navicella aliena 

Cancella l'astronave 

Controlla i comandi dell'astronave 
Genera nella nuova posizione l'astronave 
Cancella la navicella aliena 

Genera il motivo audio 

Muove la navicella aliena 

Controlla se la vostra navicella è sotto tiro 
della navicella aliena 

Come 210-240 

Fa sparare la navicella aliena e controlla se 
vi ha colpito 

Controlla se il proiettile da voi sparato ha 
colpito la barriera 

Controlla se il proiettile da voi sparato ha 
colpito l'astronave aliena 

Genera bomba 

Genera proiettili alieni 

Genera esplosione audio e video 

Fa esplodere la navicella aliena 

Fa esplodere la vostra navicella 


920-1120 Presentazione del gioco 
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TAB "VO 


i 


1119 0070120 
1120 HEXT:GOT01098 


Crazy car 


Il programma qui presentato è l'elaborazione di un 
videogioco molto diffuso: l'automobilista pazzo. Il 
gioco consiste nel far saltare ad una auto (con relati- 
vo pilota) una serie di trampolini, i quali, man mano 
che il gioco prosegue, vanno gradualmente ingran- 
dendosi, aumentando così la difficoltà del gioco. Il 
trampolino è costituito da una pedana di salto di una 
serie di bidoni che possono raggiungere un massimo 


lini sia generata casualmente. Per riuscire a superare 
i trampolini bisogna cadere giusto dopo la pedana di 
arrivo, né un po' più avanti né un po’ più indietro, se 
non si vuole correre il rischio di fare una brutta cadu- 
ta. si 


Variabili usate 


di 19, e da una pedana di arrivo. L'abilità del pilota | A$ stringa per comunicare al sistema i comandi 
consiste nell'aumentare o nel diminuire la velocità del gioco 
dell'auto secondo la lunghezza del trampolino. I tasti | P(A) coordinate di inizio dei trampolini 
per l'accelerazione sono > e < ma possono essere | K(A) coordinate di fine dei trampolini 
facilmente cambiati modificando le linee 550 e 560. | KK codici del colore 
Appena si inizia a giocare, la velocità dell'auto è tale | Ue 1 coordinate dell'auto 
da permettere all'auto stessa di saltareuntrampolino | SC punteggio della gara 
costituito da un solo bidone. Accelerando si sentirà | HS massimo punteggio 
che il rombo dell'auto sale di tono, ma attenzione | G e Z_ usate per il calcolo della lunghezza del salto 
perché gli ostacoli da saltare non sono tutti uguali. | O posizione dell'auto durante il salto 
Infatti nel programma vi è una piccola routine (linee | A, M, P variabili di ciclo 
290-340) che fa in modo che la lunghezza dei trampo- | T velocità del gioco 

win 

4 ) 

160 D=1 A=242:M=9:Bs5 

118 POKE36979,8 PRINT"3", 

120 PRINT FELICE GRANITO GRMI 

n INTLE? sÉ ALE ch CAR' 
7 POKE?688+(R+1),87 POKE7688+<R-:; 
n °689+f+1),32 POKE7689+| 
POCESO0HA. 42 NEVT Anz? sl 


M34FELICE GRANITO 


7 :POKEU+(I+1),97 


S2:POKEU 


7,32 


)-46)+(0+1),87 


2: POKE(Li-449+0+1) 132 


L 


I 


2 (DI +1 ORONZOTHENIZO 


7TOBSTEP-1 
KE(U+22)+(0+2),81 Pi 


-22)40, 81 POKEU+(0+2), 162'POKEU#(0+1), 171 


1810 POKEC+CU#C0+1)),KK:KK=KK+1:IFKKO2THENKK=1 
1020 GOSUR1258 
1030 POKE(U+22)+C0+2),32:PONE(U+22)+0, 32-POKEI/+(042), 22: POKELSCO+1, 92: POKEL4O, 3 


foso MEXT:GOT01070 


1100 PRINT"S2VU 
1119 GETAS 
1120 IFR: 
1130 6070270 

1149 FORA=17670176+21 
1150 POKEC+(76B84R?,Kk 


1169 GOTOIL1O 

1190 DATA135, 159, 175,183, 187, 189, 175, 159, 135,195, 135 
1200 POKE36875,@:POKE36877.0 

1218 FORAR=QTOLO:RERDO: POKE36874,0 

1220 FORP=070150 :NEXTP 

1230 NEXT :POKE36874,@:RESTORE : RETURN 


= n 


Motocross 


Il programma simula una gara di motocross, o meglio 
il salto di ostacoli. Gli ostacoli sono costituiti da qua- 
dratini disposti per un certo numero, uno distante 
dall'altro, su quattro file: il numero di quadrati 
aumenta e lo spazio fra loro diminuisce man mano 
che si prosegue nel gioco. Si tratta di un gioco di 
tempismo: premendo il tasto S (salto) la moto si alza 
da terra e, se il tasto è stato premuto al momento 
giusto, supera l'ostacolo. Ad ogni salto verrà attribui- 
to un determinato punteggio, il punteggio più alto 
verrà sempre visualizzato, mentre il punteggio attua- 
le sarà azzerato ad ogni gara. Per mantenere fissa la 
difficoltà del gioco, basta cancellare le linee 410, 420, 
430. 


Principali routine 
100 Cambia il colore allo schermo e richiama la 


subroutine di presentazione del gioco 
Inizializza le variabili 

Istruzioni 

Genera il percorso e gli ostacoli 
Spostamento della moto 

Controlla se vi sono comandi e genera la 
figura della moto 

Incrementa il punteggio 

Cancella la vecchia posizione della moto 
Genera il motivo audio del fine percorso 
Incrementa gli ostacoli e aumenta la veloci- 
tà del gioco 

Salto della moto 

Visualizza la moto capovolta e genera un 
motivo musicale 

Controlla i punteggi 

Presentazione 


110 

130-150 
160-210 
220-250 
260-310 


320 

330-370 
380-400 
410-440 


450-540 
560-660 


680 
740-960 


n TRETO” ERINT'MDDFER PARTIFE 


FPINT 


silmbi 3 PEF SA 
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Pontoon 


Questo programma simula il gioco di carte Poonton 
come viene giocato dalle macchinette che si trovano 
alle fiere di paese. Le spiegazioni per giocare vengo- 
no date dal programma e, cosa molto importante, il 
computer non bara, cosicché avete il 50% di probabi- 
lità di vincere. 

Il computer fa da banco e, all’inizio del gioco, avete 
un capitale di 1000 lire. In ogni caso, il banco vi fa 
credito assegnandovi, per esempio, L. — 1000. Per 
vincere dovete superare il punteggio delle carte del 
computer e, per fare più soldi, dovete tentare di fare 
“pontoon”, ossia lacombinazione di un ASSO con un 
DIECI o una figura (J,Qo K). 

L'asso può assumere sia il valore 1che11eil banco, 
una volta che ve ne sia uscito uno, vi chiede di deci- 
dere il valore che desiderate durante la mano di gio- 
co. (N.B.: una volta scelto un valore non potete torna- 
re sulla vostra decisione). Segue una lista di tutte le 
lettere che appaiono in carattere inverso e delle va- 
riabili usate nel programma. 

Riga 610-“(6£ inverse) (hai fatto pontoon inverso) (5 
£ inverse)” 


Riga 620 - “(4 £ inverse) (hai vinto con 5 carte inver- 
so)" 


Riga 630 - “(9 £ inverse) (hai vinto inverso) (9 £ inver- 
se)" 


Riga 640 - “(9 £ inverse) 

inverse)” 

Righe dalla 1015 alla 1050: 

A inversa - D inversa 

B inversa - J inversa 

C inversa - Q inversa 

D inversa - K inversa 

E inversa - A inversa 

Righe dalla 1070 alla 1100: le lettere inverse sono G 

P,QeF 

Variabili usate: 

£ denaro disponibile 

Separa le mani del gioco sullo schermo 

carte del | e del Il giocatore 

D punteggio del giocatore 

F punteggio del computer 

G numero delle carte del giocatore 

H numero di assi persi per ogni mano dal giocato- 
re 

| numero di carte del computer 

C$ valore della carta 

D$ seme della carta 

È Usata per aggiungere carte sullo schermo 

T 

Z 


(hai perso inverso) (9 £ 


Usata nelle istruzioni PRINT AT 
contiene il valore attribuito dal giocatore all’as- 
sO. 


=} 


“simcl=i PRINT AT 22,12+4E;C&;TAE 15+ 
nni I iC$: 
' las ZX8 = PRINT AT 185, 12+4E(D$&TAB 25+ 
ITOGGN FEE 
18 CENE SFILECSI SPOT OG 


IC SONO IL 


LET_D=D+2 
IF_C=1î THEN GOSUB 2OSS 


2 
SA cen > THEN GOTO 501 
EC; A 25 THEN L == 
32 PRINT “DEUI SUPERARE IL PUN praflcg 


Fram = THEM GOTG £ 
AND I=2? THEN GOITO £ 
THEN GOTTO 605 


TO 5 
RE AT Tate 


UINCERE.® 
35 ERINT SVSUESTE SONO LE VINCI 


Q E 
AN ANTOLMIVVYYO 


LE MIE 


GIOCO DI = 


59 PRINT “SE FRI ““PONTOGHNN® _£ 


79_PRINT "PER GIOCARE DOCCORRON 
“SE SEI PRONT 
THEN GOTTO SG 


IF e 156 *FHEN LET E=s#& 
GOITO 519 
LET _D=- 
IF F.Zî THEN LET F=9& 
PRINT AT 2O.,D:" 


AND 


Geri 


5} THEN 
= FsRd 


105 
262 
119 PRINT GT O,0; STU HRI EVI 
20 PRINT fG& 

159 PRINT AT 2.9: “rsrsrrrzzezr LE 

MIE CASTE EREEEE Pe" 


239 
142 T 

159 PRINT FT 19G.0:fA% 

16569 PRINT "stts:ttrt*+ LE TUE CAR 
TE_EEFXFEFEFEFE" 


FIND_Gc353I 
Gc>5) THEN 


Z=7Z-1890 


151 PRINT ST 29,0; PREMI UN TAS 
TO PER GIRARE LE TUE CARTE 


152 IF_INKEY $="" THEN GOTO 185 
165 PRINT GT 29,09; 


THEN LET 
THEN LET 
THEN LET 
THEN LET 
TRES VET 
IRND *43 +1 
LET D$& 
LET DE 
LET D& 


LET D& 
ERINENAr 22.0; “ga 
NT SI.D: UALE * 
{SE 22 SETTI 23° 
= =""“ THEN GOTO 29895 
PE INT Di i + Tali INNSEYV& 
153 Ù D THEN GOTG 2949 


NNOOO Ph 


Nidi] sera PO 


THEN GOTO SOO 
GR H=® THEN GOSUE 


z 
IF _H=1 THEN GOTO 2099 
RETURN 
FOR T=12 TO 15 IF F+11:=21 OR (F+11=D AND 
NT_AT T.35+4E;B$% <Ee1) CIHEN RETURN 
L c= 


nica “| 
UB 1929 39539 RETURN 
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Derby 


Il programma simula una corsa di cavalli. | cavalli 
sono rappresentati sullo schermo da tre lettere: A, B, 
C. | cavalli al via compiono due giri dello schermo e 
alla fine della gara appare la quotazione con cui ven- 
gono pagate le scommesse sul vincitore. Questa è 
una versione abbreviata di un programma apparso in 
“Getting acquainted with your ZX81”, un opuscolo 
distribuito dalla rivista INTERFACE dedicato ai soli 
programmi per ZX81. Il lettore che ha proposto la 


è un'ottima macchina in rapporto al prezzo. La limita- 
zione più evidente riguarda la scarsa quantità di me- 
moria disponibile senza l'espansione RAM. Quando 
mi sono reso conto di ciò mi sono precipitato ad 
ordinare un esemplare già ai primi di giugno. In ri- 
sposta ho ricevuto una lettera in cui la ditta diceva di 
non poter evadere il mio ordine prima della fine di 
agosto. In compenso mi veniva garantito che, assie- 
me alla scheda, mi sarebbe stata spedita una cassetta 


modifica aggiunge alcune osservazioni: “... Lo ZX81 | di programmi di dimostrazione dell'utilità della stes- 
sal” 
. n 
simrl=ir ZX8I 399 PRINT AT ASS (22-PIDII 45; < 
È Ret a Sere dae 119 PRINT AT ARS CORSA TZII AR; 
i DER 


HT I... 
Sana SI 
+IMT IRMDDIì 


sia” 


IF AVI) 41 AND 141 PHND 
AS) <41_ THEN Goro Sa 
325 PRINT AT 1,9; TOTALIZZATORE 


ABITI n FEDI 

E AR 
IF_Rt3 
'UINCE sf 


RIA 


PRIDE RF 3 


242 THEN PRINT AT A, 


3242 THEN PRIMT NT RR, 
+IMNT_ IRNDa23 
PRINT AT S,2; "ERTO #4“; ca; 


FOR_H=1 Ta 
NEXT 
FLih 


ana 


ni 


Musica 


Questo programmino è un utile trucco per ottenere 
suoni con lo ZX81. Per sentire la melodia dovrete 
alzare il volume del televisore impiegato come moni- 
tor e spostare la sintonia fino a riuscire ad ascoltare il 
suono prodotto dalle interferenze sullo schermo pro- 


dotte dall'alternarsi rapido delle istruzioni FAST e 
SLOW. 


sins” ZX8I 


REM #%4 MURIOCAS 44» 
FOR R=1 TO Im 


T_A 
FOR gta To a20a 


n) 


La guida sicura 
nel labirinto 
tecnologico. 


TechnoClub è l’organizzazione di vendita 
per corrispondenza del libro tecnico 
(principalmente elettronica e informatica) 
nonché del software applicativo. 
TechnoClub è anche il tuo consulente, la 
guida sicura per orientarsi nel labirinto 
dell’editoria tecnica, lo strumento ed il 
servizio essenziale per il numero 
crescente di persone che hanno 
compreso l’importanza della tecnologia 
nel mondo odierno. pt 
Libri di base e didattici per imparare 
capire; applicativi per realizzare e colti) 
proprio hobby; pratici per risolvere i 
problemi dell'attività quotidiana; di elevata 
specializzazione per migliorare il proprio + 
background professionale o culturale. E altri 
ancora per soddisfare ogni esigenza. 
TechnoClub offre solo il meglio della 
produzione tecnica editoriale. Per questo ha 
scelto di collaborare con qualificati editori 


italiani e soprattutto si avvale di un'équipe di TechnoClub ha instaurato rapporti di 
professionisti che esamina, seleziona e collaborazione con i più prestigiosi editori e 
propone le opere più significative e software-house stranieri, per offrire 
compiete. tempestivamente, già da quest'anno, le opere 


più innovative in lingua originale e il 

software più interessante, appena disponibili. 

Tutti possono aderire al TechnoClub, 

assicurandosi un servizio garantito, 

se professionale, veloce, unico nel suo genere. 

“Na, Esamina le modalità per diventare Socio e 

À considera i numerosi vantaggi che ne 
derivano. 


5 
Ds 


Techno: 


i migliori libri tecnici 
e il software a casa vostra. 


Cod. IHC01 Cod. IHC02 Cod. IHC03 Cod. IHC05 
INTRODUZIONE | Pesorammazione, 
A FRUONESS ssd De 2 
COMPUTING def! 
= 9 
== oto] 
Cod. IFC04 Cod. IFC05 Cod. IGC01 Cod. IFH04 
sO gare a cn 
= N i 
Segna Cra 
Eos 
Cod. IAK03 Cod. IAK04 Cod. IAK05 Cod. IAK06 Cod. IAK07 
IERERA One DN 
Cod. IHK02 Cod. IHK03 Cod. IHK04 Cod. IFK01 Cod. IFK02 


Associati subito. 


Cod. IHC07 


EIA o tm Giogo semi 
fatico Cobol 

il 

| 

il 

Cod. IAK08 Cod. IAK09 

IMPARIAMO 


Cod. IFK03 


Cod. IFK04 


Hai almeno 8 buone ragioni per farlo. 


1. Nessun impegno di acquisto. 
| Soci non sono vincolati all'acquisto di 
un numero minimo di libri durante il pe- 
riodo di adesione al TechnoClub. Di 
conseguenza, scelta libera e nessuna 
imposizione, acquistando quello che si 
vuole, quando si vuole. 


2. Garanzia. 
! libri proposti dal TechnoClub costi- 
tuiscono sempre la versione originale e 
PIU aggiornata delle edizioni in com- 
mercio. 
Il TechnoClub garantisce quindi il 


CRatenuto e la veste tipografica origina- 
i 


3. Convenienza certa. 
I) prezzo delle opere offerte ai Soci del 
TechnoCiub è inferiore del 10% circa 
rispetto al prezzo di copertina dell'edi- 
zione in commercio. Il risparmio è per- 
ciò assicurato. 


4. Consulenza professionale per una scel- 
ta sicura. 
La selezione delle opere proposte dal 
TechnoClub è effettuata da un gruppo 
di esperti dei singoli settori. 
Viene in tal modo offerto ai Soci un 
orientamento sicuro e garantita la mas- 
sima affidabilità nella scelta. 


5. Informazione costante. 

A tutti i soci del TechnoClub viene in- 
viata gratuitamente, ogni tre mesi, la ri- 
vista “TechnoClub Review”, che pre- 
senta l'assortimento, suddiviso per ar- 
gomento e settore specifico di interes- 
se, dei libri selezionati. Ogni libro viene 
illustrato con note esplicative che ne 
chiariscono il contenuto. 

Il Socio viene in tal modo facilitato nella 
scelta, secondo le sue specifiche esi- 
genze. 


6. Aggiornamento continuo. 
“TechnoClub Review” garantisce inol- 


tre l'aggiornamento costante sulle novi- 
tà editoriali. n 
Considerando l'evoluzione continua dei 
settori trattati, i Soci dispongono così di 
uno strumento efficace per tenersi tem- 
pestivamente aggiornati. 


. Un ulteriore e interessante vantaggio. 


I Soci ricevono anche la tessera Techno- 
Club, un documento strettamente per- 
sonale che dà diritto a sconti speciali 
sugli acquisti effettuati presso i negozi 
convenzionati, indicati sulla rivista 
“TechnoClub Review”. 


Praticità e comodità d'acquisto. 


"Aderire al TechnoClub significa poter 


scegliere con tranquillità a casa propria 
consultando semplicemente la rivista 
“TechnoClub Review”. 

Garanzia di libri sempre disponibili, 
nessuna perdita di tempo in lunghe ri- 
cerche... e i libri arrivano puntualmente 
a domicilio. 


...@ puoi già 
scegliere 
dl tra questi 

Cod. IFCO1 pa i rn titoli. 


Cod. 1HC08 
ECT = rs 
ORI fra e 
5080 E BUS MMS-8 BEACA Strana 
dFonvan 


32 PROGRAMMI CON IL PET 
T. Rugg e P. Feldman - pag. 240, 1981 


Cod. IDH02 Cod. IAK01 Cod. IAK02 Trentadue programmi documentati, da eseguire 
su ogni tipi di PET. Ogni programma si compone 
di: scopo - come usarlo - esecuzione di prova (con 
fotografie schermo durante l'esecuzione) - lista 
del programma, semplici variazioni - routine prin- 
cipali - variabili principali - progetti suggeriti. 

Cod. IHC01 L. 8.500 


Cod. IFH11 


Programmazione 
degli elaboratori 
Sleftronici 


ii Cobol. A 
teoria ed esercizi 


32 PROGRAMMI CON L'APPLE 
T. Rugg e P. Feldman - pag. 248, 1981 


Come sopra, per ogni tipo di Apple. 
Cod. IHC02 L. 8.500 


Cod. IAK10 Cod. IAK14 Cod. IAK15 Cod. IAK16 Cod. IHK01 


32 PROGRAMMI CON IL TRS-80 
T. Rugg e P. Feldman - pag. 238, 1981 


Come sopra, per il TRS-80. 
Cod. IHC03 L. 8.500 


INTRODUZIONE 
PASCAL 


IMPARATE IL BASIC CON IL PET 
H.D. Peckham - pag. 245, 1981 


Un corso di autoistruzione per chi desidera impa- 
rare il BASIC su un PET. Con esempi ed esercizi, 
partendo dai concetti più semplici, si arriva a pro- 
grammare il PET, sfruttando tutte le possibilità. 

od. IFKOS Cod. IDK01 Cod. IDK02 Cod. IDK03 Cod. 11K01 Cod. IHC04 L. 8.500 


FASC 
SEB 
A° 


CEDOLA DI ADESIONE da compilare e spedire in busta chiusa a 


Come diventare È TechnoCiub - Via Rosellini, 12 - 20124 Milano 


ilwli) Si, aderisco al Technociub scegliendo la seguente formula Bold interessato privalgalmente: è Libri.dli 
000 D A) Sola adesione con versamento di L. 8.000 DElettrotecnica 
© B) Adesione con acquisto dei seguenti libri per un importo | GEIettronica e dispositivi elettronici 
totale di L... ..+ L. 1.500 percontributo fisso | MElettronica pratica ed hobbystica 
Per diventare Socio è sufficiente scegliere tra per spese di spedizione OMisure elettroniche 


queste due semplici possibilità: 


A) Versare l'importo di L. 8.000 quale quota di 
adesione. 


DRadioriparazioni - TV Service 
DEquivalenze dei semiconduttori 
O Personal computer e calcolatrici 
CO rrrzrizioninna BOd: sismici (CRL: RR OLinguaggi e metodi di programmazione 

(e] i 0 francobolli allegati D Informatica 

‘Coptanil'oran 9 DInformatica e organizzazione aziendale 
OComunicazioni: elementi e sistemi 
© Microprocessori 
U Saggistica elettronica e informatica 


Cod. COd srsriiorio» AGO: sione ia 


B) Effettuare un primo acquisto di libri, per un 
importo minimo di L. 30.000. 
In questo caso non si versa la quota di adesione 
Per acquisti inferiori a L. 30.000 va aggiunta la 
quota di adesione di L. 8.000. 


D Assegno allegato n° . 


Banca 


In ambedue i casi, j/ Socio ha diritto a ricevere D Ho spedito l'importo a mezzo vaglia postale GEnerala allemailte dich 
ratuitament Ù ” È istemi regolazione e controllo 
;4 © la rivista “TechnoClub Review" EI N 1 Ho versato l'importo sul ccp n° 19445204 intestato a QAIIrI (specificare) a 


I 
[| 
I 
| 
I 
I 
[ 
I 
ben due anni e la tessera personale con validità 
Peo as. PaDda 4 I o ii postino al ricevimento dei volumi MAIO 
I 
I 
I 
I 
I 
I 
[ 
I 


Il Socio che nel corso dei due anni di adesione | i i wa 
(valido solo per la formula B) Sono Interessato anche a libri in lingua 


effettuerà acquisti di libri per un importo di alme- 
no L. 60.000 avrà diritto al rinnovo automatico e originale ... 
gratuito dell'iscrizione al TechnoClub per un NBTE: srt ae 


Dinglese D Francese O Tedesco 


altro anno, conservando i tutti i vantaggi 
quindi i ‘99 .. Sono Interessato a Software per ... 


esclusivi 


D Apple 
di P DAtari 
Associati Bergen 
D Sinclair 
2 eni : OTandy Radio Shack 
Spedisci oggi stesso ly 
subito, la cedola di adesione Cod. Fiscale (per le aziende) aaa DAItri (specificare) 


Data % i FIRE sera 


»..@ puoi già 
scegliere 
tra questi 
titoli. 


INTERVISTA SUL PERSONAL COMPUTER - 
HARDWARE 
RA. Didday - pag. 244, 1981 


Seicento domande e risposte sul mondo dei per- 
sonal computer. 

Questo volume, dedicato all'hardware, contiene 
un'introduzione, sotto forma di intervista, ai com- 
Pilter in generale e ai microprocessori in partico- 
lare. 


Cod. IHC05 L. 8.500 


INTERVISTA SUL PERSONAL COMPUTER - 
SOFTWARE 


R. Didday - pag. 200, 1981 


Centinaia di domande e risposte sul mondo dei 
personal computer. Questo secondo volume, de- 
dicato al software, contiene un'introduzione, sot- 
to forma di intervista, alla programmazione dei 


computer in generale e dei microprocessori i 
I in 
particolare. hi » 


Cod. IHC06 L. 8.500 


ASTRONOMIA CON IL CAI 
TASCABILE FROFATORE 


A. Jones - pag. 307, 1981 


ll libro indica come usare i moderni calcolatori 
tascabili per risolvere diversi problemi astronomi- 
ci intempo minimo. Vengono introdotti metodi sia 
per logica algebrica che per logica polacca inver- 


Appendici con 57 programmi documentati per 
calcolatori con e senza schedine magnetiche. 
Cod. IHC07 L. 12.000 


LE SCIENZE CON IL CALCOLATI 
TASCABILE sa 


D.R. Green e J. Lewis - pag. 398, 1980 


Il libro tratta le varie funzioni disponibili sui calco- 
latori dimostrando la possibilità di applicazione a 
numerosi problemi di fisica, chimica, biologia, 
matematica, ingegneria, con diversi esempi svolti 


e numerosi problemi presi dalle scienze, che il 
lettore deve svolgere. 


Cod. IHC08 L. 9.900 


MATEMATICA CON IL CAI 
TASCABILE LCOLATORE 


P. Henrici - pag. 233, 1980 


85 programmi scritti per l'HP-33E e per l'HP-25, 
che implementano algoritmi di teoria dei numeri, 
soluzioni di equazioni, teoria della stabilità alge- 
brica, analisi delle serie di potenze, integrazione e 
funzioni speciali, completati dai diagrammi di 
flusso e dalle istruzioni Operative. 


Cod. IHC09 L. 13.950 


IMPARIAMO A PROGRAMMARE 
IN BASIC CON IL PET/CBM 
A. Bonelli - pag. 180, 1981 


Un corso didattico di programmazione che dalle 
premesse generali arriva alle frasi BASIC, ai con- 
cetti di stringhe, al trattamento dei file, all'uso dei 


floppy disk, alle norme operative, al DOS, sino al 
linguaggio macchina. 


Cod. IFC01 L. 9.000 


IMPARIAMO A PROGRAMMARE 
IN BASIC CON IL VIC/CBM 
R. Bonelli - pag. 176, 1981 


Un manuale che inizia i principianti alla program- 
mazione in BASIC del VIC20, privilegiando l'a- 
spetto pratico, per imparare nel frattempo che 
cos'è un programma. 


Cod. IFC02 L. 9.900 


GUIDA AL SINCLAIR ZX81 - ZX80 
e NUOVA ROM 
R. Bonelli - pag. 264, 1982 


Vengono confrontati i tre calcolatori, che presen- 
tano notevoli differenze nel sistema di gestione e 
nel BASIC utilizzato, con considerazioni sulla loro 
potenzialità e approfondimenti su argomenti spe- 
cifici: trasformazione dei programmi da un calco- 
latore all'altro, sistema operativo, gestione dei file, 
linguaggio macchina. 


Cod. IFC03 L. 14.500 


DAI - MANUALE DEL MICROCOMPUTER 
A. Bonelli C. Fiorentini - pag. 145, 1981 


La prima parte del manuale insegna l'utilizzo del 
calcolatore DAI, dai primi passi nella programma- 
zione BASIC alla spiegazione delle caratteristiche 
di questo personal. La seconda parte contiene le 
specifiche sull'implementazione del linguaggio 
BASIC sul calcolatore DAI. 


Cod. IFC04 L. 8.000 


INTRODUZIONE AL PERSONAL 
E BUSINESS COMPUTING 
A.Zaks - pag. 224, 1979 


Un testo didattico per principianti e per utenti che 
vogliono ampliare la loro conoscenza. 
Un'introduzione ai concetti, alle periferiche e alle 
tecniche fino ai metodi di valutazione per una 
scelta oculata. 


Cod. IFC05 L. 12.500 


JUNIOR COMPUTER - Vol. 1 
A. Nachtmann e G.H. Nachbar - pag. 178, 1981 


Junior Computer è il microelaboratore da autoco- 
struire su un unico circuito stampato. Il sistema 
base e questo libro sono l'occorrente per l’ap- 
prendimento. Prossimamente verranno pubblica- 
ti altri volumi relativi all'espandibilità del sistema. 
Cod. IGC01 L. 9.900 


PROGRAMMAZIONE DELLO Z-80 
A. Zaks - pag. 530, 1981 


Libro ideato come testo autonomo e progettato 
sotto forma di corso per imparare la programma- 
zione in linguaggio Assembler del microproces- 
sore Z-80: dai concetti di base alle tecniche di 
programmazione più avanzate, con risoluzione 
obbligatoria di vari esercizi. 


Cod. IFH02 L. 21.500 


PROGRAMMAZIONE DEL 6502 
R. Zaks - pag. 375, 1981 


Come sopra per il microprocessore 6502 
Cod. 1FH04 L. 19.800 


USARE IL MICROPROCESSORE 
G. Giaccaglini - pag. 295, 1981 


Un testo per far capire l'utilizzo più razionale del 
microprocessore, soprattutto in relazione al con- 
trollo di impianti e processi, con diversi esempi di 
simulazione e prospettando problemi di interfac- 
ciamento hardware. 


Cod. IFH07 L. 13.500 


APPLICAZIONI DEL 6502 
A. Zaks - pag. 214, 1981 


Tecniche e programmi per applicazioni tipiche 
del 6502. | programmi sono, con poche varianti, 
applicabili direttamente su qualunque microcom- 
puter su scheda basato sul 6502, quali il KYM, il 
SYM e l'AIM 65 e altri e consentono al lettore 
alcune realizzazioni pratiche. 


Cod. 1FH08 L. 12.000 


INTRODUZIONE AI MICROCOMPUTER 
VOL. 0 IL LIBRO DEL PRINCIPIANTE 
A. Osborne - pag. 240, 1980 


Una visione complessiva su calcolatori ed elabo- 
ratori, con concetti generali e terminologia di ba- 
se per capire la tecnologia usata. Vengono illu- 
strate le singole parti del sistema, con le possibili- 
tà di espansione e componenti accessori. 

Cod. IFH11 L. 12.500 


INTRODUZIONE AI MICROCOMPUTER 
VOL. 1 IL LIBRO DEI CONCETTI 
FONDAMENTALI 

A. Osborne - pag. 321, 1980 


Il libro presenta la struttura logica fondamentale 
su cui sono basati i sistemi a microcomputer. 
Usando i concetti comuni a ogni sistema a micro- 
processore, viene illustrata l'architettura, la pro- 
grammazione, le possibilità e l'operati di un 
microcomputer, con un set finale ipotetico di 
istruzioni per la simulazione delle possibili situa- 
zioni reali in cui si verrà a trovare con i vari micro- 
processori. 
Cod. IFH12 


L. 14.400 


MICROPROCESSORI 8080 e BUS MMS-8 
a cura di L'EMMECI - pag. 160, 1981 


Un testo di “consulenza” con caratteristiche di- 
dattiche per chi ha già una conoscenza di base su 
circuiti logici, algebra di Boole e aritmetica bina- 
ria. Inteso come manuale commentato del micro- 
processore 8080 e del bus adottato presso il labo- 
ratorio di microcalcolatori del Politecnico di Mila- 
no. Si pone come riferimento per chi programma 
nel linguaggio Assembler 8080. 


Cod. 1DH02 L. 5.400 


INTRODUZIONE ALL'APL E ALLE 
SUE APPLICAZIONI 
©. Camerata - pag. 266, 1980 


Il linguaggio di programmazione APL si basa su 
funzioni logico-matematiche di tipo generale. 
Adatto quindi ad applicazioni in vari settori, è sta- 
to implementato su più sistemi per tutti i livelli di 
elaboratori. Il libro si prefigge lo scopo di fornire 
agli utenti una conoscenza generale di questo 
linguaggio. 
Cod. IAK01 


L. 10.800 


COME PROGRAMMARE CON 
IL FORTRAN 
P. Ridolfi/H. Coen - pag. 148, 1980 


Una guida allo studio del Fortran, concepita con 
intenti prevalentemente didattici, che pone in gra- 
do di scrivere e capire semplici programmi utiliz- 
zando questo “linguaggio simbolico", particolar- 
mente adatto per agevolare gli scienziati ei tecnici 
all'impiego dell'elaboratore elettronico. 


Cod. IAK02 L. 5.400 


IL FORTRAN - TEORIA ED ESERCIZI 
P. Ridolfi - pag. 168, 1981 


Viene descritto il complesso di regole che costi- 
tuiscono la grammatica del Fortran, con abbon- 
danti esemplificazioni pratiche, onde acquisire 
una graduale e completa padronanza del linguag- 
gio. Non si richiede al lettore una conoscenza 
approfondita degli elaboratori elettronici. 

Cod. IAK03 L. 4.950 


ESERCITAZIONI DI ASSEMBLER 
E. Vitale/A. Hernandez - pag. 134, 1981 


Una raccolta di 12 esercizi di crescente difficoltà, 
di ognuno dei quali viene dato l'enunciato, il dia- 
gramma a blocchi e la soluzione; quest'ultima co- 
stituita dalle liste di compilazioni integrali per 
ogni problema enunciato. 


Cod. IAK04 L. 4.950 


COME PROGRAMMARE CON IL PL/1 
G. Romano - pag. 205, 1982 


Il volume presenta le caratteristiche più importan- 
ti del linguaggio PL/1, che può definirsi un ibrido 
tra i linguaggi per utenti scientifici e quelli per 
utenti commerciali. 

Con il ricorso ad esempi esplicativi, si pone come 
guida per lo studio autodidattico o anche guidato 
del PL/1. 


Cod. IAK05 L. 7.200 


COME FARE I DIAGRAMMI A BLOCCHI 
A.C. Wright - pag. 84, 1981 


Con un'abbondante documentazione di esempli- 
ficazioni, il libro si propone l'agevole assimilazio- 
ne della tecnica della diagrammazione a blocchi 


attraverso numerosi esercizi da svolgere per pro- 
prio conto. 


Cod. IAK06 L. 4.500 


L'ASSEMBLER 
E. Vitale - pag. 172, 1981 


L'opera, rivolta a chi abbia già qualche conoscen- 
za di programmazione, illustra il flessibile lin- 
guaggio Assembler, esponendo le varie istruzioni 
e spiegandone il significato, le modalità d'uso e i 
casi in cui possono rivelarsi utili o necessarie. 

Cod. IAK07 L. 6.750 


COME PROGRAMMARE CON I'RPG | - 
RPG Il - RPG Ill 
A.C. Wright - pag. 266, 1981 


Nella prima parte del testo viene descritto l'RPG I: 
la sua logica, l'uso di unità periferiche facili da 
gestire, le maschere di stampa, ecc. Nella secon- 
da e terza parte vengono descritte le istruzioni 
aggiuntesi nelle più recenti versioni di questo lin- 
guaggio: l'RPG Il e il compilatore RPG III. 

Cod. IAK08 L. 10.800 


COME PROGRAMMARE CON IL COBOL 
G. Sarri - pag. 129, 1982 


L'opera espone le regole da seguire per redigere 
un programma in Cobol, con numerose esemplifi- 
cazioni e si propone di porre il lettore in grado di 
scrivere programmi in Cobol e di capirli. 


Cod. IAK09 L. 4.500 


PROGRAMMAZIONE DEGLI 
ELABORATORI ELETTRONICI 
G. Bertoldi - pag. 286, 1982 


La prima parte illustra i principi generali dell'ela- 
borazione automatica dei dati, le caratteristiche e 
il funzionamento degli elaboratori e i problemi di 
programmazione. La seconda parte è dedicata 
all'analisi (studio e definizione dei problemi da 
svolgere); la terza parte illustra la tecnica di stesu- 
ra dei diagrammi a blocchi. Segue capitolo sul 
Cobol e uno sui sistemi operativi, più glossario in 
appendice. 


Cod. IAKi0 L. 7.200 


PRINCIPI DI PROGETTAZIONE 
DEI COMPILATORI 
D. Gries - pag. 566, 1980 


Il volume descrive le tecniche utilizzabili nella 
scrittura di compilatori per linguaggi ad alto livel- 
lo, quali il Fortran ed il PL/1, illustrando teoria ed 
aspetti pratici connessi con tale scrittura. 

Cod. IAK14 L. 26.100 


IL BASIC - TEORIA ED ESERCIZI 
E. Spoletini - pag. 298, 5° ediz. 1982 


Il volume, rivolto anche ai “non addetti ai lavori”, 
presenta le caratteristiche del linguaggio BASIC. 
L'impostazione didattica si prefigge di far appren- 
dere agevolmente il linguaggio per gradi. Quasi 
tutti gli esercizi, differenziati come argomenti e 
grado di difficoltà, sono corredati da diagrammi a 
blocchi. 


Cod. IAK15 L. 10.800 


IL COBOL - TEORIA ED ESERCIZI 
E. Spoletini - pag. 396, 1982 


La prima parte dell'opera espone gli elementi per 
scrivere un programma di media difficoltà; nella 
seconda parte vengono trattati problemi relativi 
alle tabelle e ai flussi organizzati in modo non 
sequenziale. Ogni capitolo è corredato di nume- 
rosi esempi ed esercizi. 


Cod. IAK16 L. 13.500 


IL PROGETTO DEI MICROCOMPUTER: 
SOFTWARE 
C.A. Ogdin - pag. 247, 1981 


Vengono esposte tecniche aggiornate, tra cui la 
programmazione strutturata, con diversi esempi 
di progettazione software che utilizza una nota- 
zione simile al Pascal. Viene dato risalto sia al 
progetto di strutture dati che di procedure struttu- 
rate. 


Cod. IHK01 L. 12.150 


PASCAL 
P.M. Chirlian - pag. 200, 1981 


Questo libro, inteso come manuale di autoistru- 
zione o libro di testo in un corso, per chi non ha 
esperienza di calcolatori o programmazione, pre- 
senta il linguaggio Pascal che permette la “pro- 
grammazione strutturata”. Ogni capitolo si con- 
clude con una serie di esercizi. 


Cod. IHK02 L. 7.650 


MICROSOFT BASIC 
K. Knecht - pag. 150, 1981 


Un manuale di introduzione al Microsoft BASIC, 
sorto dall'esigenza di standardizzazione del BA- 
SIC per l'implementazione su una varietà di per- 
sonal computer. Viene dato rilievo alle diverse 
caratteristiche e forme che il Microsoft Basic può 
presentare e viene dato particolare risalto alla ver- 
sione implementata sul TRS-80. 


Cod. 1HK03 L. 5.850 


MUSICA CON IL CALCOLATORE 
R.C. Zaripov - pag. 169, 1979 


Una monografia dedicata al problema della com- 
posizione di musica con l'aiuto di calcoli 
matematico-probabilistici, con rassegna degli 
studi svolti nel mondo sull'aiuto dei computer per 
la composizione e l'analisi della musica, oltre alle 
regole trovate dall'autore per realizzare un model- 
lo che simula l'attività di un compositore. 

Cod. IHK04 L. 6.750 


CP/M CON MP/M 
A. Zaks - pag. 309, 1982 


Il libro si prefigge di rendere agevole l'uso del 
CP/M (nelle versioni CP/M 1.4 - CP/M 2.2 - siste- 
ma operativo multiutente MP/M)); il sistema opera- 
tivo progettato per semplificare l'utilizzo di un mi- 
crocomputer, disponibile su quasi tutti gli elabo- 
ratori basati su microprocessore 8080 e Z80 e su 
certi sistemi utilizzanti il 6502. 


Cod. IFK01 L. 19.800 


PROGRAMMARE IN ASSEMBLER 
A. Pinaud - pag. 153, 1982 


Il libro, destinato in particolare a chi già ha una 
buona conoscenza di un linguaggio evoluto molto 
semplice come il BASIC, fornisce i rudimenti che 


consentono di programmare in Assembler, con 
numerosi esempi pratici. Come Assembler esi- 
stente è stato scelto quello dello Z80. 


Cod. IFK02 L. 9.000 


IMPARIAMO IL PASCAL 
F. Waldner - pag. 162, 1981 


Un libro di divulgazione, incentrato sull'autoap- 
prendimento del linguaggio Pascal, con consigli, 
problemi. 

Un testo da “usare” e non da “leggere”, secondo 
l'intento dichiarato dall'autore. 


Cod. IFK03 L. 9.000 


PASCAL-MANUALE E STANDARD 
DEL LINGUAGGIO 
K. Jensen/N. Wirth - pag. 179, 1981 


La prima parte è costituita dal manùale di appren- 
dimento delle regole e dei principi del Pascal (ma- 
nuale utente); la seconda, dalla descrizione dello 
standard del linguaggio. Serie di tavole contenen- 
ti la definizione del Pascal attraverso il BNF e 
anche tramite le carte sintattiche. 


Cod. IFK04 L. 9.000 


INTRODUZIONE AL BASIC 
P. Le Beux - pag. 314, 1981 


Un corso rivolto ai principianti, che illustra tutti gli 
aspetti del BASIC su differenti sistemi. Con nume- 
rosi esempi, il lettore può verificare con immedia- 
tezza il reale apprendimento raggiunto. 


Cod. IFK05 L. 16.500 


METODI DI OTTIMIZZAZIONE 
E PROGRAMMI DI CALCOLO 
©. Baldissera/S. Ceri/A. Colorni - pag. 468, 1981 


Vengono esposte le caratteristiche di un gruppo 
di programmi (attualmente esistente presso il 
Centro di Teoria dei sistemi del CNR), che si com- 
pone di alcuni classici algoritmi strutturati per 
privilegiare la semplicità d'uso, l'uniformità e mo- 
dularità fra i vari programmi. Il linguaggio usato è 
il Fortran. 


Cod. IDK01 L. 18.000 


PASCAL - DAL MICROPROCESSORE AL GRAN- 
DE ELABORATORE 

G. Cioni/S. Crespi Reghizzi/M. Moscarini 

pag. 194, 1981 


Il testo, rivolto a chi già conosce la programma- 
zione del calcolatore, descrive nella prima parte il 
linguaggio Pascal standard nelle sue varie parti, 
con 40 esempi di programmi, collaudati sul calco- 
latore. 

Nella seconda parte, dopo un cenno alle tecniche 
di compilazione, si presentano le schede tecniche 
di alcune versioni del Pascal disponibili per elabo- 
ratori di vasta diffusione. 


Cod. IDK02 L. 7.200 


LISP - LINGUAGGIO E METODOLOGIA DI PRO- 
GRAMMAZIONE 
G. Gini, M. Gini, G. Guida - pag. 204, 1981 


Con molti esempi di diversa complessità nel testo 
vengono illustrati tutti gli aspetti del linguaggio 
LISP, oggi diffuso anche su mini e personal com- 
puter, utilizzato per progettare sistemi di intelli- 
genza artificiale e per la soluzione di problemi di 
elaborazione non numerica. 


Cod. IDK03 L. 8.100 


PROGRAMMARE IN FORTRAN 
375 PROBLEMI RISOLTI 
S. Lipschutz/A. Poe - pag. 314, 1980 


Lo scopo del libro è di presentare il linguaggio 
Fortran e di insegnare a risolvere dei problemi con 
esso. Oltre alla sintassi, viene insegnato come 
scrivere dei programmi Fortran con chiarezza, in- 
sistendo sia sulle tecniche che sulle buone abitu- 
dini di programmazione. Vengono esaminati | 
principi più importanti sia del Fortran standard 
che del Fortran strutturato. 


Cod. liK01 L, 10.800 
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PETIITITI TATA 


IBM PERSONAL COMPUTER: Unità di sistema fino a 256 Kbyte, con micro- 
processore 8088 a 16 bit. 2 unità drive per minifloppy da 160 Kbyte ciascu- 
no. Monitor fosfori verdi 12”, 25 righe per 80 col. Stampante. Alimentatore. 
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CENTRI DI DISTRIBUZIONE: HARD & SOFT SYSTEM S.R.L., Via Costantinopoli 50, 47045 Miramare di Rimini, Tel. 0541-31060/759076/ 
759077 @® AVELCO S.R.L., Via Cornigliano 47, Genova, Tel. 010-602994 ® DP INOFSHOP S.N.C., V.le Storchi 10/10A, 41100 Modena, Tel. 059- 
218821 ® SIRIO SHOP, V.le Certosa 148, Milano, Tel. 02-304713/305778/3080786 ® STUDIO P, Via Paganino Bonafede 2/A, 40139 Bologna, Tel. 
051-548080 ® INFODIS S.R.L., Via A. Oriani 10, 04100 Latina, Tel. 0773-491271 ® INFORMATICA MERIDIONALE, Via Pigna 92, Napoli, 
Tel. 081/248988 


Apple cresce. 


Apple ha introdotto il concetto di personal in tutto Apple. Oltre al già famoso e collaudatissimo Apple Il, la Iret 


il mondo. E in tutto il mondo Apple 
cresce. Cresce anche in Italia dove 
la Iret, che lo importa e ne cura 
l'assistenza, può oggi annunciare 
l’esistenza di una rete di vendita 


presenta Apple III, più potente e adatto ad usi specia- 

listici. E poi video per ogni esigenza, a fosfori verdi 

Ai 0 a colori, stampanti e decine di accessori e programmi. 
È naturalmente crescono 


le vendite di Apple, perché 


di oltre 200 centri specializzati che | | = ; il personal computing 
fanno di Apple il loro cavallo —— UA piccole aziende, 
di battaglia. professionisti e privati. È facile 


Ma cresce anche la gamma ni prevedere quindi che Apple continuerà a crescere. 


Distribuzione per l’Italia 
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